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BJ RET URNV 


QL Caverns 2™ 


Solve the BJ mystery and win a 
Floppy Disk System + ICE full 
details within 


Joysticks for Super Smooth Action. 

Suit all games and ICE. 

Sureshot QL £19.95. The Ultimate in Control. 
Quickshot QL £12.95. standard. 

@L Convert Lead for ATARI Joysticks £5.49 


* £41 Discount if purchased with program 


NOW WITH EAGLE 


eResem 


Two great machine code QL games for 
the price of one! Zapper the snappy 
arcade game is now joined by 
“Defender” style eagle. 


Amazing Value 


£10.95 


Eidersoft, The Office, Hall Farm, North Ockendon, Upminster, 
Essex RM14 3QH. 
Please supply the following items:— 
BJ THE RETURN @ £12.95 each .... 
SPOOK @ £12.95 each ...... 
ZAPPER/EAGLE @ 210.95 te a 
QUICKSHOT JOYSTICK @ £12.95 each 
SURESHOT JOYSTICK @ £19.95 each ........ 
QL CONVERT LEAD @ £5.49 Gd Ch... 


Mere POSTCODES chawcvsmazscarmtimmonaoinrs veneers avs 
disk drive information. 


*EUROPOST £2.00 WORLD £3.00 
Please deduct my Access/Visa/American Express 


Card No. 
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SUPERCHARGE 
SUPERBASIC COMPILER 


* This amazing compiler translates QL SuperBasic into 68008 machine code, completely automically! It supports the entire syntax of 
SuperBasic (except, obviously, commands like EDIT/LIST/RENUM which are specific to Basic and would be meaningless in 
machine code). That means all file handling, multidimensional arrays, procedures (with parameters too), local variables, strings, 
sound, graphics, separate superspeed integer, floating point arithmetic (displaying Nine Digits of Precision versus The !nterpreter’s 
Seven!), extensions to Basic, the complete range of SuperBasic control constructs . . . refer to your QL User Guide for the whole list! 

* The code génerated by Supercharge runs incredibly fast — here are the standard PCW benchmarks (PCW June 1984) for QL Basic 
compared with the timings for the same programs when Supercharged: 


BENCHMARK NUMBER 1 2 3 4 5 6 4 8 

SUPERBASIC (SECS) Psa| 6.4 10.7 10.3 13.2 26.1 61.8 25.8 
SUPERCHARGE (Floating Point) (SECS) 0.2 0.3 1.2 0.9 1.0 2.5 4.1 8.6 
SUPERCHARGE (Integer) (SECS) 0.06 0.1 0.3 0.3 0.3 0.7 1.0 N/A 


(Variations will exist between different QL systems) 

Hence on standard benchmarks a 60x speed increase is possible .. . SUPERCHARGE, however, is at its least impressive when 

compiling such short programs, as SuperBasic grows slower as program size increases. Speed improvements of SEVERAL 

HUNDRED TIMES are in no way uncommon when using SUPERCHARGE on programs of average size. 

* SUPERCHARGED programs are independent jobs (so you don’t need to have SUPERCHARGE loaded to run them). 

%* SUPERCHARGED programs are relocatable and are inherently multitasking (so you can run any number of them at once). 

* SUPERCHARGE optimises as it compiles — and the advanced user may switch the optimisation from time to space on a line by line 
basis. 

* SUPERCHARGED programs load far more quickly (at least 5-10 times) and, hence reliably, than normal SuperBasic — 
there is no pause between blocks 

* SUPERCHARGE can compile programs of ANY size, provided you have enough RAM on board (for the unexpanded QL, the limiting 
source code size is still a massive 40K!). Compilation listings can be directed to any device — and a complete set of compile/run time 
error messages (clear and unambiguous, unlike the Interpreter’s!) are issued, showing exact error positions. 

* Add-on commands, functions and procedures are allowed by SUPERCHARGE, provided they do not read/alter Interpreter data 

structures . . . Hence utilities supplied with disk systems and QL Toolkits will work with SUPERCHARGE! 

* SUPERCHARGE is compatible with all disk and memory-expansion systems. The system we recommend (on grounds of quality, 

speed and reliability) is the one we used in developing SUPERCHARGE -— the CST disk system, available from Computamate 

(Scotia Road, Burslem, Stoke-on-Trent — Tel: 0782 811711) or from us — write in for details. 

* SUPERCHARGED programs are protected against unauthorised modification/listing/tampering — permanently. 

* SUPERCHARGE is the only QL Compiler which offers the user the convenience of interactive testing, editing and debugging. 

%* SUPERCHARGE cures most bugs and lifts many of the restrictions imposed by the Interpreter! Examples of problems completely 

cured under SUPERCHARGE: ‘‘Too many parameters in a procedure” bug; the RESPR bug, GOSUB in a single-line FOR 

statement, CALL in long programs, procedure parameters/integer/string variables used in SELECT statements, full integer 

arithmetic, etc, etc. 

* SUPERCHARGE adds a number of new commands to SuperBasic, including ones to monitor device statuses, to list/stop/remove 

tasks, to change task priorities, and so on. 

* SUPERCHARGE is supplied either on disk or microcartridge and can be easily transferred/backed up from one to the other. 

* SUPERCHARGE is supplied with a superb Instruction Manual (40,000 words) designed to complement the User Guide — it is 

designed for both beginner and advanced user, with sections on ‘‘Getting The Best From SUPERCHARGE” and many examnles. 

* SUPERCHARGE itself loads and runs phenomenally fast — yes, SUPERCHARGE is itself a SUPERCHARGED program' 


£59.95 COMPLETE WITH DETAILED MANUAL (specify cartridge or CST diskette) 


Author: Simon Goodwin. Assistant: Gerry Jackson. Mission Control: Freddy Vachha. 

NOTE: Software houses requiring to use SUPERCHARGE will need a site licence, for which the VAT-inclusive cost 
is £250 (in addition to the price of one compiler). Instructions are supplied to site licence holders on the making of 
appropriate numbers of copies of SUPERCHARGE for their exclusive use. Site licence holders are exempted from 
paying Digital Precision royalties on SUPERCHARGED programs. 

Why use C or Pascal when a highly structured, full-featured Basic of superior speed (once SUPERCHARGED) and flexibility 
is already on your QL? SUPERCHARGE is the final solution. SUPERCHARGE all your Basic programs (past, present and 
future) — including any you have bought — and realise your potential as well as that of your superb computer. 

Digital Precision Software is available wholesale from TBD, Lightning, Websters and Microdeal, or retail from selected branches of 
W. H: Smiths, Boots, Menzies, Computers of Wigmore Street and other fine retailers. The quickest way to orderis directly from us—why not 
use the coupon below? Our delivery is by first class return of post. Dealer enquiries are most welcome (our discounts are generous). 


To: DIGITAL PRECISION LTD, 91 MANOR ROAD LONDON E17 5RY 


Please rush me a copy of SUPERCHARGE, The State of the Art 
SuperBasic Compiler, immediately. | enclose a cheque/postal order/cash y | fe] 
for £59.95 (for orders from Europe add £2.50. Airmail orders from other 


countries add £4). For all orders from abroad use Eurocheques or 
cheques drawn on UK banks only. Within the UK our deliveries are post ] 
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More On Memory 


Following our recent 
comments concerning internal 
memory upgrades (November 
1985 issue), Silicon Express 
have confirmed that in tests 
their external upgrade has 
proved to be some 25% quicker 
at performing a recalculation 
on an Abacus program when 
compared to internal upgrade. 

On the subject of internal 
memory expansion the 
company stress that success of 
any such upgrade is dependent 
on having the correct 
component removal 
equipment. Without the 
correct tools and test 
equipment it would be all too 
easy to cause considerable 
damage to the QL while 
attempting component 
removal. The warranty on 
Silicon Express’s own internal 
upgrade is for a 90 day period 
and has been extended to cover 
the microdrives. 

Having expanded the QL’s 
memory many users will be on 
the look out for a RAM disk 
driver. In their opinion 
however, the majority of disk 
drivers are far from easy to 
operate. Silicon Express are 
thus prepared to offer a free 
disk system to anyone who can 
produce a RAM disk utility 
that will run with the Psion 
packages. 


The name Medic will be 
familiar to many readers of QL 
User. Over the past months 
the company has used the 
pages of this magazine to 
advertise offers on QL disk 
systems that seemed too good 
to be true — in the final 
analysis it could turn out that 
this is exactly what they were. 
At the time of writing we are 
sorry to report that the 
company does not seem to be in 
a position to supply goods 
ordered by customers and 
advise readers not to send 
Medic any money. Any 
readers who ordered goods 
from the company and whose 


Take a QL, monitor, disk 
drive, printer and modem and 
one 13 amp power point and 
you are faced with a problem 
— five into one won’t go. 
Traditionally the solution has 
been to buy a four in line 
distribution block and to 
supplement this with extra 
two way adaptors as necessary. 
This is hardly an ideal 
solution to the problem 
though. Not only does the 
jumble of power leads and 
plugs look unsightly but quite 
often it can be unsafe. 
Conblock Electrical have 
come up with a solution in the 
form of MasterPlug, a six 


money was banked by Medic 
are asked to write to our offices 
with full details of all 
transactions with them. 
Where possible these should 
include the date on which any 
goods were ordered, the 
quantity and price of the items 
and, in the case of cheques, the 
date on which these were 
cashed by Medic. Until we 
have collected together details 
of all readers who may be 
affected by the problems at 
Medic we are unable to say 
what the final outcome of the 
affair is likely to be. 

The laws of libel prevent us 
from saying too much about 
the Medic case at present. It 
will take some time to assess 
just what went wrong with the 
company. 


The Medic saga provides an 
excuse, if one were needed, to 
pass on some general 


Before and after — the Masterplug 6 into 2 adaptor in action. 


in-line adaptor that is 30% 
smaller than the familiar four 
way adaptor. The adaptor is 
supplied complete with six 
special plugs, each having a 
six amp capacity. 

The company can also 
supply a four way adaptor that 
may be plugged into any 13 
amp outlet. 

Both adaptors should be 
widely available from High 
Street electrical stores. 


It would seem that not too 
many QL users make use of 
their computer to access 
Prestel. The latest figures for 
Micronet subscriptions 


comments on ordering high 
value goods from mail order 
companies. We must stress at 
this stage that QL User takes 
every possible step to ensure 
the bona fides of those 
companies advertising in the 
magazine, readers can 
however take a few sensible 
steps of their own. For those 
who have a major credit card 
the advice is to use it on any 
purchase over £100. The 
reason behind this advice is 
that recent consumer 
legislation means that using 
your credit card for such 
purchases means that a 
contract exists not only 
between you and the vendor of 
the goods but also between you 
and the credit card company. If 
the goods fail to arrive for any 
reason and the company from 
which you ordered them from 
goes bust, you will havea 
claim in law against the credit 


indicate that QL registrations 
are way down the list in the 


‘also rans’ slot. Figures for QL 


registrations may not give the 
full story though. Micronet 
believe that many more QL 
owners use their service than 
the figures indicate. The 
reason they believe that is, in 
addition to their QL, many 
people will have a second 
machine, most likely the 
Spectrum, as the equipment 
necessary to access Micronet 
via the Spectrum is far 
cheaper than equivalent QL 
models. 


Keep It Clean 


It’s a well established fact that 
the majority of disk read/write 
errors can be attributed to 
small particles of dirt that find 
their way onto the disk drive’s 
recording head. Even a spec of 
dust no bigger than 30 
millionths of an inch can spell 
disaster for a disk drive. While 
314" drives are far less prone to 
the effects of dust than 514” 
units, it is still advisable to 
clean the heads on a regular 
basis. To meet the cleaning 
requirements of 342” disk 
owners DNCS produce a 
product that goes under the 
name of a ‘disposable, wet/dry, 
non-abrasive diskette drive 
head cleaning system’. The 
cleaning kit costs £17 and can 
be used for ten cleaning 
sessions — that’s £1.70 a 
throw. While this may seem 
expensive, when the cost of the 
harm that could be done by a 
dirty disk head is considered, 
it is quite reasonable. 

For more information 
contact DNCS on 0706 67567. 


card company. 

For those who do not have a 
credit card, the most sensible 
option seems to be to make use 
of the Post Office’s COD 
service. The only drawback 
with this scheme is that if you 
wish to pay by cheque, you will 
have to wait for this to be 
cleared by the PO, this can 
take quite a few days. 

A third option is to, by 
arrangement with the 
company concerned, to pick 
the goods up in person — this 
though defeats the idea of mail 
order. 

Once again while we would 
wish to stress that readers will 
very rarely suffer as a result of 
the failure of advertisers in QL 
User to supply goods, we would 
urge anyone considering the 
purchase of any high value 
items of equipment to take 
steps to safeguard their 
money. 
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Its easy to 
complain about 
advertisements. 
But which ones? 


Every week millions of advertisements 
appear in print. on posters or in the cinema. 

Most of them comply with the rules 
contained in the British Code of Advertising 
Practice. 

But some of them break the rules and 
warrant your complaints. 

If you're not sure about which ones they 
are, however, drop us a line and we'll send you 
an abridged copy of the Advertising Code. 

Then, if an advertisement bothers 
you, you'll be justified in bothering us. ¥ 


The Advertising Standards Authority. 
If an advertisement is wrong,were here to put it right. 


ASA Ltd. Dept 2 Brook House. Tomngton Place, London WCIE 7HN 


foreducationalists. Whether itis ata primary, 
secondary or higher education level, 


Educational Computing ensures 


youare totally up to date with the 
applications for 
computersin 

teaching. 


Find out for 
yourself. 
Return this 
coupon stating 
how you want 
to pay. Ifafter 
reading 
Educational 
Computing 


Start of term!Make sure you have 
the future of the class in the bag. 


Educational Computing isthe definitive magazine 


Do you 
want to 
work for ee 
7 elemap 
Micronet = 3ccuxi* 
8 i 0 9 London EC1R 5EJ 
|_| 


We need two BBC Micro programmers to com- 
plete a development team which is creating new 
services for Micronet members (like Starnet and 
Gallery both of which on Beebs). 


et 
B00 


The people we want are young enthusiastic 
machine-code programmers who know the BBC 
Micro inside-out and have at least some under- 
standing of data comms. 


You’d be working in London at Micronet Towers 
and be earning a good salary plus other benefits. 


If you’re interested just write to me, Mike Brown, 
enclosing details of your qualifications and 
interests (and telling me what a great program- 
mers you are!) to arrive not later than Friday 16th 
January 1986. 


you find itis not for you. Simply cancel your order, 
and we will makearefund. 
Noobligation;justan 

opportunity for you tofind 

out why Educational 

Computingisso 

highly respected. 


Send your 

\ completed coupon 
to Educational 
Computing, 

Priory Court, 

30-32 Farring- 

don Lane, 

London EC1R 
3AU. 
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ES 
BCPL £59-95 INC. VAT s 


BCPL is a popular and elegant systems programming language 


ie £3 ideal for writing games, utilities, and applications packages. It 
The best sel i “95 INC. \, combines the convenience of a high level language with the flex- 
Sional quality as mbler for the QL! ald | ibility of an assembler. 
serious Sembler with m an 1A Profes- > True compiler with separate compilation. P Includes all the standard BCPL 
Programmer. Y useful features for the functions. > Full runtime library includes interfaces to QDOS graphics, file oper- 


ations, window handling, etc. B Exception handling provides diagnostics for 
debugging. ® Link loader allows linkage of separately compiled segments. 


> BCPL modules can be linked with Assembler and Pascal modules. 32-bit 
variables use the full QL address space. ‘ 


LI P £59-95 wevar 
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Every DEVELOPMENT KIT includes Metacomco's 
popular screen editor, and a detailed manual. 
All KITs will operate either on a standard QL 
or else using QL peripherals such as floppy 
disks or memory expansion. 


a - rom ee Smith, aie paved HMV, Phone today or post this coupon to: Metacomco, 26 Portland Square, Bristol BS2 8RZ. 
enzles and many computer stores or Please send me QL C £99-95 J QL PASCAL £89-95 LD) ASSEMBLER £39-95 OIBCPL £5995 0 
direct from Metacomco. | | 


ADDRESS 


26 Portland Square, Bristol BS2 8RZ. 


Tel: Bristol (0272) 428781 
In the USA call: 1-800-252-6382 


LISP £59.95 L) MORE INFORMATION C11 enclose a cheque for £ or debit my 
m ACCESS/VISA No: ine ad 1 a TPS Expiry Date 
NAME 


SIGNATURE | 


POSTCODE TEL NO: 


Trademarks: UNIX-AT+T Bell Laboratories; QL, QDOS - Sinclair Research Limited. ice (neue Baskegeans RecslogiU Kitialniand only. Dele clowiup 0 Baie es eae ie 
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Philip Staniforth charts the 
heavens with his QL. 


Most people buy a home computer for 
one specific function: kids go for 
games, writers for word processors, 
and businessmen for financial pack- 
ages. Once these applications are put 
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aside, looking for something 
interesting, creative and useful to fill 
the vacuum can be a problem. 

Here Astrology programs come 
into their own. The complicated 
mathematical calculations needed to 
accurately ascertain the correct posi- 
tions of the planets in the sky at any 
moment, past, present, or future are 


tailor-made for computers. At the 
same time it can be fascinating to 
link interpretations of personal 
characteristics and psychology to the 
planetary positions at birth. 

Since the advent of the cheap home 
micro with a memory bank of 16K or 
more there has been a proliferation of 
Astrology programs for.every make 


of computer. In general ‘these pro- 
grams calculated the figures and 
ignored their interpretation, the lat- 
ter demanding not only a thorough 
knowledge of Astrology, but also the 
ability to synthesise the results into 
a coherent and __ presentable 
framework. No easy task, even for a 
good programmer and Astrologer 


working in conjunction. 

The few programs that have 
attempted an interpretation are 
almost always ‘flawed’. Either they 
have been written on. a computer 
with too little memory so only 
sketchy and basic read-outs are 
given, or a big mainframe has been 
used that presents you with a 


hundred page read-out so full of con- 
tradictory information that you don’t 
know where to start or what to 
believe! 

We should, at this point touch on 
the theory behind Astrology itself. It 


is a vast area that embraces many ~ 


disciplines from Astronomy, mythol- 
ogy, and philosophy through to mod- 
ern day psychology. The belief that 
the movements of the ‘stars’ in the 
heavens are connected to and affect 
the lives of ordinary people on earth, 
is an idea that has refused to lie down 
and die. Irrespective of persecution 
and scepticism those who hold by this 
belief are to be found throughout 
history. We should remember that 
nearly all the major astronomer- 
scientists from Ptolomy through to 
Galileo, Copernicus, Kepler, and 
Newton were well versed in the arts 
of Astrology, and accepted it as nor- 
mal. Indeed it was taught in Univer- 


sities throughout Europe until 
around the 17th century, and at the 
same time every noble court 


employed its court Astrologer to 
advise the ruler on the events of the 
times. Documented Astrological 
records of planetary movements 
stretch back to 1700 BC to the era of 
the Babylonians. A continuous 
thread with many ups and downs can 
be traced from then until the present 
day (nearly 4000 yrs). Astrology’s 
heritage, then, is rich and varied. 
An exciting link between com- 
puters and Astrology exists in the 


- area of research. Huge databanks of 


birthtimes are being built up to carry 
out statistical surveys into such 
diverse areas as occupations, crime 
patterns, suicides, seasonal births, 
behaviour traits associated with var- 
ious signs and planets, illness and 
diseases, stock market trends. Out of 
this research some very interesting 
results are turning up. In the case of 
occupations, a definite link between 
planetary positions and profession 
has been established, much to’ the 
amazement of the sceptics, and even 
of those carrying out the research 
itself. Also, it is a known fact that the 
crime rate rises around the time of 
the full Moon with violent crime com- 
ing to the fore. The search for a link 
between planetary cycles and fluctu- 
ations in financial markets is being 
pursued vigorously by many groups 
of Astrologers keenly interested in 
the potential benefits. 

‘Synastry’ the art of comparing 
your chart with that of someone else 
and finding the links that are posi- 
tive and negative is a practice well 
advanced in the Astrological world. 
One day we will probably see Com- 
puter Dating services using compari- 
sons between a couple’s birthcharts. 
Indeed it is not unknown now for 
businessmen who are ‘believers’ in 
Astrology to have the chart of a pros- 
pective partner or customer checked 
out to see any potential problems in 
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> 


inc. VAT 


Following the success of our internal 512K memory upgrade, 
we are now able to offer new QL's with a full 
12 months warranty and complete with 512K memory as standard. 


This elegant solution to the serious memory limitations of the QL 
also provides you with the additional benefit of:- 


No increased power drain allowing you to add any cards without problems 
including the leading Silicon Express Disk Insider Board 
(see separate advertisement) 


For immediate despatch of goods contact our friendly 


sales desk quoting your Access details 
or simply send your order and remittance to the address given below 


silicon 
EXPress 


Silicon Express Limited 
Silicon House, Fowke Sircer Rothley, Leicestershire LE7 7PJ, U.K. Tel: 0533 374917 
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THE UNPREDICTABLE MICRO 


the relationship. The fact that you 
can construct detailed pictures of a 
person’s character is the strongpoint 
of Astrology. Psycho-analysts often 
use an Astrological analysis to sup- 
plement their work with a patient. 

Predicting future happenings and 
events via the ‘Transits’ of the 
planets is Astrology’s weakest area. 
Many foolhardy and ridiculous proc- 
lamations have let down the art of 
Astrology giving it a poor reputation. 
Astrology is however all about 
Planetary cycles and with the aid of 
computers we can now easily look 
back into the past and correlate 
historical events to Planetary posi- 
tions in the signs of the zodiac, and 
thus look out for any recurring pat- 
terns in the future that may indicate 
similar events. 

Writing an Astrology program is a 
very complicated business. To begin 
with, there are two ways for working 


out positions of the planets in the 
Zodiac. One is called the Tropical 
Zodiac, the other is called the 
Sidereal Zodiac. The Tropical system 
relates the inclination of the Earth’s 
axis to the Ecliptic or orbit as a 
whole, while the Sidereal Zodiac 
relates the orbit of the Earth and the 
Ecliptic to the background of the 
Stars. Suffice to say different Zodiac 
sign positions for the planets are 
reached via the two systems. The 
Tropical system is mainly used in 
Western countries, and the Sidereal 
in Eastern countries. The Sun passes 
into a new Zodiac sign around the 
21st of each month. So, if for example 
you were born between the 21st of 
July and the 21st of August, in West- 
ern Astrology you come under the 
Sun sign of ‘Leo’ whereas in Eastern 
Astrology you would fall under the 
sign of Cancer. Both systems are 
valid they just have different start- 
ing points. 

The first step in the search for 
planetary positions is to calculate the 
exact time you want to use as a frac- 
tion of the 20th century. For 
example, the Century Fraction for 
7.13 am on the 1st January 1986 = 
0.8600082 (we'll explain why, later). 
This fraction is then multiplied by 
the number of degrees travelled by 
the planet in the whole of the century 
and added to the position at the start 
of the century. This result is then 
‘fine-tuned’ using a long complex 
algorithm involving the eccentricity, 
inclination and the gravitational 
attraction between the planets. To 
convert these heliocentric positions 


to geocentric is a simple matter of 
subtracting the X,Y,Z co-ordinates of 
the earth from those of the Planet 
involved. The entire calculation pro- 
cess can be performed in QL Super- 
Basic in about 10 secs for nine 
planets, giving an accuracy to 1 
minute (1/60) of arc. Stripped down to 
the barest minimum an Astrology 
calculation program can be con- 
densed into about 54 to 60K Basic. 
This requires about 400 statements, 
a routine for the input of the 
date wanted, and the planetary 
algorithms. In mahine code the pro- 
cess could be considerably faster. 

Accuracy on the QL is no better 
and no worse than most other com- 
puters. The real bonus for QL users is 
in terms of speed. The same program 
running on the Spectrum is 4 times 
as slow, whilst on the Commodore 64 
and the Amstrad it can take up to a 
minute or more. (Astrocalc, one of the 
few companies around producing 
Astrology software, have fine-tuned 
their programs to run faster on the 
slower computers.) 

Before computers became widely 
available the task of calculating posi- 
tions of planets had to be performed 
manually using a book called an 
Ephemeris. This gives one daily posi- 
tion in longitude of the planets over a 
year, or number of years. You then 
interpolate between two daily posi- 
tions by using logorithms to find the 
correct answer. With practise it 
takes about 15 to 20 minutes per cal- 
culation. A far cry from 10 seconds! 
Clearly, in terms of accuracy and 
speed, a computer is hard to beat. 

The half-way house for Astrologers 
at the moment is a hand held cal- 
culator capable of interpolating 
between two planetary positions, but 
still needing an Ephemeris handy to 
feed in the daily positions. This takes 
about two minutes to complete. The 
capabilities of calculators are im- 
proving all the time and the day is 
probably not very far away when we 
will see them running Astrology pro- 
grams independently, using good 
graphic displays and enough 
memory to save plenty of data. 


The first step in producing a calcu- 
lation program is an input routine to 
enter the time and date of birth, and 
the entry of Latitude and Longitude 
to ‘fix’ the terrestial point we are 
working from. It’s essential to 
remember that Astrology is ‘Earth 
centered’ and to all intents and pur- 
poses the Sun and the planets are 
revolving around the Earth. This of 
course is not the case but the 


Astronomy of the planets is as seen 
from the Earth. Day, Month, and 
Year can all be entered as integers 
separately via the INPUT command. 
Latitude and Longitude are entered 
in Degrees and minutes and can be 


broken down as shown in Listing 1. It 
is slightly more complicated to 
handle as we are dealing with direc- 
tions, North, South, East and West. 
Latitude lines divide the Earth’s 
surface from North to South, being 0 
degrees at the Equator and spread- 
ing to 90 degrees in both directions to 
the Poles. Longitude lines start at 0 
degrees from the Greenwich meri- 
dian in England to 180 degrees in 
both directions meeting at the oppo- 
site side of the Earth at the Inter- 
national date line. South Latitude 
and Kast longitude must both be con- 
verted to minus. At the same time 
the Latitude must also be expressed 
in terms of Radians. The degrees and 
minutes of both are entered sepa- 
rately then converted into a whole 
decimal fraction. Listing 1 does not 
take into account all the Print state- 
ments necessary to show “Day, 
Month, Lattitude” etc, on the screen 
for the convenience of the user. 
Listing 1. 
1000 INPUT ;LAT_DEG 


1010 INPUT ;LAT_MIN 

1020 LET LAT = RAD(LAT_ 
DEG+LAT_MIN/60) 

1030 PRINT “<N>orth or 
<S>outh ?:” :INPUT 
NS 

1040 IF NS$INSTR“Ss”’ 
THEN LAT= -LAT 

1050 INPUT LON_DEG 

1060 INPUT LON_MIN 

1070 LET LON = LON_DEG+ 
LON_MIN/60 

1080 PRINT “<E>ast or 
<W>est ?:” :INPUT 
;EW$ 

1090 IF EW$ INSTR“Ee”’ 


THEN LON = -LON 

In the next part we hope to review the 
first Astrology software to come out 
on the QL, namely Digital Preci- 
sion’s “Super Astrologer” program. 
With an intepretation of your Birth- 
chart also included the program 
would seem to be a brave and ambiti- 
ous attempt but will it work? 

Also in the next issue two expert 
Astronomer/Astrologers Michael 
O’Neill, and Bray Braden will dis- 
cuss a lot more useful routines and 
procedures that go to make up an 
Astrology program for the Sinclair 
QL. The Tropical Zodiac and calcula- 
tions for dates this century will be 
used. 
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A slight deviation from our 


usual Q&A pages as we 
present some of your 


comments and advice for 


other readers. Open Channel, 


QL User, Priory Court, 


30-32 Farringdon Lane, 


London EC1R 3AU 


Parisienne Parlez 


Tam the owner of a Sinclair QL 
of the latest design (JS Rom, 
Psion 2.3) and, on the whole, I 
am astonished that so powerful 
a system has troubles to get 
sold at £199.00 even at 
£299.00, it would be fine. 
Indeed, Sinclair Research is 
better at designing things 
than selling them. 

Concerning the QL, its 
hardware is sound, SuperBasic 
is very efficient and versatile, 
and the Psion software are 
very interesting. Even the 
so-maligned microdrives work 
quick and well, as long as they 
are understood to be superfast 
tape-recorders, not two- 
dimensional access disks. 

Yet, nothing is perfect and I 
think some of the following 
weak points may hinder the 
success of this computer: 

1) The User guide is not 
well-written, and it may be 
very confusing for beginners. 
Some notations, especially 
those used in the Keywords 
section, are not explained, and 
not understandable. By 
chance, examples are given, 
which put right what is 
confused by the explanations, 
so long as these examples are 
not themselves confused by 
misprints or syntax errors. 

2) luse my QL with a good 
amber monochrome monitor, 
for which blue and red are 
black, green is dark-grey and 
yellow is white. But Psion 
software heavily use red to 
convey messages, so that some 
of these messages are lost for 
me. Maybe those colours look 
fine in showrooms, but they 
don’t go well with business 
software and monochrome 
monitors. 

3) I feel a little overwhelmed to 
come from my previous ZX81 
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with 16K to a QL with 128K, 
and get hindered by some new 
limitations: why should a DIM 
statement accept no number 
greater than 32K, or a string 
DATA line be shorter than 256 
bytes, or the whole variables 
area be less than 64K? 

4) limported my QL from 
England to France, where the 
1 year guarantee no longer 
applies (let it be so!), and 
where the mains provides 
power in a different way. I 
have modified my French 
mains to mimic English and 
my QL seems to work. Yet its 
power supply is a sensitive 
beast: When it is given 220 
volts instead of 240 volts, it 
grumbles and heats, and the 
screen picture gets unsteady. 
This is a little troublesome, 
since voltage changes of that 
magnitude may happen daily 
in my district. 

Yet, these points (and a few 
others) are minor ones, and 
may be easily overcome by 
experienced users. Things are 
different for true beginners: 
for them, even the QL’s strong 
points may be troublesome eg. 
SuperBasic has so many 
features that a true beginner 
may get lost; each Psion 
software deserves a long study. 

As we say in France: best is 
the enemy of good! But it 
would be a pity if the QL fails 
for being so good. 

GW Feler 
Paris, France. 


Bad Business 


Tam currently the proud 
possessor of a non-working 
QL, three months out of 
warranty. Having spend four 
days trying to get through to 
Sinclair by ‘phone with no 
success, in desperation I 
posted the machine to them, 
with a covering letter 
explaining the problem. Two 
weeks later the QL was 
returned, unrepaired, with a 
letter informing me that the 
machine was out of warranty 
and quoting a ‘service charge’ 
of £40 (payable in advance) for 
the repair. This procedure 
seems to be to be the height of 
lunacy: why not simply 
request the remittance by 
letter? Should I decide to have 
Sinclair repair the machine 


(which I certainly will not do if 
I can get it repaired locally), I 
will incur repeat postage/ 
insurance costs totally 
unnecessarily, not to mention 
the unnecessary wear and tear 
on the machine of two 
additional journeys in the 
post. One can only conclude 
that Sinclair do not really 
want the business. 

S J Wilkinson (Ms) 

South Wirral, Cheshire 


Unparalleled Pride 


I am writing to you in praise 
not only of my new QL, on 
which the PSION packages 
(v2.3) are excellent, but also of 
the printer which I obtained at 
the same time, a 
CENTRONICS GLP, both 
available from DIXONS. 

The printer is excellent 
value for money being capable 
of draft quality at 50 cps and 
NLQ on a printer costing less 
than £170, including both 
Parallel and Serial interfaces 
as standard with a tractor feed 
as an optional extra for less 
than £20. 

I use a standard DIXONS 
QL Serial Printer Lead, which 
requires no modification. The 
dip switch settings are as 
follows (O is ON, X is OFF). 

876543 2.1 

Switch 1 KX XOOOOX 

Switch 20 XOX XOXO 
This makes the printer 9600 
Baud No Parity with 
Handshaking. The printer can 
now be used using serlh with 
the printer lead in ser1. 

In order to obtain a £ sign 
using the PSION packages set 
TRANSLATE 1 to £,<CTRL> 
<SHIFT><comma>. 

As the printer is capable of 
NLQ it is useful to be able to 
switch it in without re- 
installing a different driver for 
Draft and NLQ mode. The 
method I use is to select two 
characters that you will not 
use in your documents and use 
them as the switches. ie using 
{ for NLQ and } for Draft: 

TRANSLATE 2 {,ESC;x;1 

TRANSLATE 3 },ESC;x;0 
Make sure all these are 
entered as characters as 
shown in the install_bas 
program. 

The rest of the PSION 
install parameters are listed 


'YPEN (HA 


below: 
BOLD ON: ESC;E 
BOLD OFF: ESC;F 
UNDERLINE ON: ESC;-;1 
UNDERLINE 
OFF: ESC;-;0 
SUBSCRIPTON: ESC;S;1 
SUBSCRIPT OFF: ESC;T 
SUPERSCRIPT 
ON: ESC;S;0 
SUPERSCRIPT 
OFF: ESC;T 
Please note that the NLQ 
switches described above are 
NOT printed and for the 


purpose of this letter the 
switch has been removed. You 
must allow for these new not 
printed characters. 

G Slatter 

Stroud, Glos 


Lock Up Time 


With reference to your 
November issue of QL User 
and the letter from David J. 
Howard in Open Channel with 
regard to QL “Lock-Up”. I 
agree whole-heartedly with 
Mr. Howard’s observations 
that the QL Locks-Up when 
over-heating is present. In fact 
during the Summer months 
this became a very big 
problem. If you check with Mr. 
Howard you will probably find 
that the over-heating occurs in 
the micro-drive area. This in 
turn leads to QL Cartridges 
becoming warm and causing 
severe stretching of the tapes. 
Very soon after this the “Bad 
medium” report comes up. The 
unwise and gullible then place 
back-up cartridges in the 
microdrive to continue any 
programming work not 
realising that the over-heating 
will swiftly do the same to any 
cartridge. 

In fact without the help of 
Talent Computer Systems of 
Glasgow and their Cartridge 
Doctor I nearly lost 4 years 
accumulated work on a 
program that began life on a 
ZX81, which was then 
re-written for the Spectrum 
and finally for the QL. 

My specialist program 
demands that the QL be left 
switched ON permanently so 
that the SDATE facility can be 
utilised in calculations. 
However this can’t be done at 
the moment so the SDATE has 
to be re-set every time the QL 


is switched on. This is a small 
price to pay as against 
repeatedly losing four years 
work. My heart is not that 
strong. 

What is Sinclair going to do 
about this major problem. 
Neville Cresdee 
Gosport 


Tam the owner of a Sinclair 
Spectrum and a Sinclair QL. I 
am also a licensed radio ham. 

Many of us radio amateurs 
are also interested in 
computing — the two hobbies 
seem to go hand in hand. 

Using the ZX Spectrum it is 
possible to directly connect the 
tape output socket to the radio 
transceiver and transmit 
programs over the air. At the 
‘other end’ the radio receiver’s 
headphone socket is connected 
directly to the tape input 
socket on the Spectrum and in 
most instances the program 
can be listed and run or saved 
to cassette. 

I would very much like to be 
able to send programs from 
one QL to another in a similar 
way. A problem arises with 
the QL as there is no tape or 
other audio output. 

Can anyone please provide 
details of how this can be 
achieved? 

I look forward to hearing 
from anyone who can help. 

J Cooper (GWOACH) 
Mid-Glamorgan 


Quill Printing 


I bought my QL several 
months ago, mainly on the 
strength of the Psion version 2 
packages for business use. 
While I enjoy Basic 
programming as a hobby, I 
have not had the time to really 
try out SuperBasic yet. I think 
I'll miss the full screen editor 
and other productive 
programming features of my 
Spectravideo MSX machine. 
The arrival of a SuperBasic 
compiler would help to redress 
the balance though. 

Ihave now used Quill 
extensively and find it 
excellent. I miss the ability to 
skip the cursor straight to the 
beginning or end of a line; is 


there a facility I’m unaware 
of? I used to find it frustrating 
to have to repeatedly set my 
preferred options for Design, 
Footers, Margins, etc on each 
new document. I now have all 
these set in two “empty” 
documents on my Quill 
cartridge; one called set11_doc 
for 11 inch continuous paper 
and one called seta4_doc for 
full A4 sheets. I now load one 
or other of these before 
starting a new document. 

Ihave a Super5 EP-1201 
printer with a Miracle 
Systems Centronic interface. I 
believe the Super5 brand 
printers are identical to 
Panasonic. It appears to be 
Epson FX compatible. I seem 
to get away with the default 
Open Serl parameters for 
listings. The printer dip 
switch settings are: 


1=1 standard 
mode 

(can be set to 
various IBM 
graphics 
modes) 

no auto linefeed 
with CR 

don’t skip 
perforations 


on™! 


1-2 on} 


off 
off 


on 
character set 
(7 European 
sets 
available) 


oa. } 


on 
off 
off 


UBS 

8 bit 

mode switch 3rd 
position sets to 
compressed 
print (“on” sets 
function of 
switch to 
change to 
proportional 
spacing) 


wD) (unused) 


Besides its robustness and 
good speed (120 cps, 29 cps for 
NLQ), I find very useful the 
hardware switch to change 
from standard to NLQ to 
compressed or proportional. 
While these can be switched 
by software, it is very 
convenient to simply switch 
the printer manually from 
draft to NLQ. 

I prefer to do most of my 
printing at one and a half 
normal spacing. Consequently 
I have made the following 


changes to the Epson FX-80 

printer driver: 
Lines 
Preamble 


44 
esc,Q,esc,A,18 
(initialise 
printer, set 
spacing to 
18/72 inches) 
CR 

(this flushes 
out the final 
print line if I 
don’t press 
Return after 
the final line in 
my Quill 
document) 

I plan to experiment with 
some of the translate codes to 
switch to and from expanded, 
compressed and italic print. 
Michael Rouse 

Auckland, New Zealand 


Having had a QL for over a 
year now it came somewhat as 
asurprise to find a peculiarity. 

Every time I type [CLS 100] 
what appears to be the buffer 
empties onto the screen for all 
to see. Once this happens one 
can edit it, add to it or leave it 
by pressing [ENTER]. If it is 
added to, an error “buffer 4” 
appears and the only way to 
leave is by pressing [CTRL + 
C] together. 

It doesn’t stop there either. 
CLS and quite a few other 
numbers including negative 
ones can be entered and not 
returned with an error. Most, 
notably [CLS 99], which 
suspends the cursor (?) until 
[ENTER] is pressed a few 
times. 

Richard Griebler 
London SE14 


Transmitted Ease 


Having recently graduated 
from a Spectrum toa QL, Iwas 
interested to read the article 
“Spectrum Connections” in QL 
User, October 1985. [havea 


Postamble 


peculiar need to download 
programs and files from the 
QL to the Spectrum in order to 
list to my trusty teletype. 

Contrary to the impression 
created by the article, I 
successfully make use of the 
network to communicate 
between the two machines, 
which consist of a ‘JM’ version 
QLand aversion 1 Interface 1. 
For those with equally 
perverse needs (or just the 
plain curious) I offer the 
enclosed listings. 


16@ REM ---SPECTRUM PROGRAM (PECEIVER)--= 
116 REM OPEN STREAM TO TELETYPE 

126 FOPMAT “T"J11@1 OPEN #3."T" 

13@ REM MAKE SPECTRUM STATION #2 ILLEGAL 
14@ FOPHPT “N"321 LET HS="99" 

15@ PEM RECEIVE LINE FROM STATION #1 
166 OPED e9,"N"3) 

178 INPUT ¢95LS 

18@ CLOSE #9 

19@ PEM DON'T PRINT SANE LINE TWICE 

2e¢ IF LSC1)=NS THEN GO TO 158 

216 REM OUTPUT TO SCREEN AND TELETYFE 
226 PRINT LS(2 TC ds LPRINT LS¢2 TO > 
23@ LET MS=LS¢ 1) 

ear GO TO 1Se 


10 PEMARK ---0L PROGRAM (TRANSMITTER) --- 
110 REMARK MAKE CL STATION #1 

126 NET 1 

130 REMARK INITIALISE LINE COUNTER 

14@ LINE-COUNT = 9 

15@ REMARK GET NANE OF FILE TO BE LISTED 
16@ CLS: INPUT "FILENAME > “JF ILE-NAMES 
178 OPEN@IN ¢S.FILE-NAMES 

18 PEHARK TRANSMIT LINE-EY-LINE 

196 REFEAT EVERY-LINE 

eee IF EOF(#S) THEM EXIT EVEPY+LINE 
216 INPUT ¢53 LINES 

22@ =PRINT LINES: SENDCLINES) 

3@ END REPEAT EVERY-LINE 

eae CLOSE #5 

25€ STOP 

50@ DEFINE PROCEDURE SENDCSTRINGS) 

sie REMARK DOVBLE-UP AIlY EMBEDDED ‘QUOTES 
S2@ 0 DUNIMYS ="; MAPK = 1 

s3€ IF STRINGS = “" THEN STRINGS =" ™ 
$a@ = FOR INDEX = 1 TO LENCSTRINGS) 


sse IF STRINGSCINDEX) = '"* THEN 

566 DUKMYS = DUHMN/S4STPINGSCHARK 
TO INDEX) 

578 MAPK = INDEX 

sae END IF 

soe END FOR INDEX 


eee 
616 REMARK SEND TO STATION #2 
628 OFEN #6sNETO-? 

638 PRINT #63 LINE*COUNTADUMMYSs CHRSC13)3 
6ae CLOSE #6 

ose LINE*COUNT = (LINE*COUNT+1) MOD 9 

668 END DEFINE 


Note that the file is 
transmitted line-by-line since 
the QL uses CHR§$(10) asa 
terminator whereas the 
Spectrum uses CHR§$(13). 
Each line is prefixed with a 
single digit count in order to 
allow repeat transmissions to 
be detected and ignored if 
required. Note also that in 
order to transmit programs 
which contain lines with 
embedded quotes, any such 
quotes must be duplicated 
before transmission. 

Using these techniques it is 
equally possible to transmit 
data from Spectrum to QL. 
GP Clark 
Derby 
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DUMMYS = DUMMYS4STRINGSCMARK TO) 


Will a new QL drive you to 


drink? Samantha Mead thinks | 
it will, but recommends the 


ieee diary vee 


the QL’. 


Day 1.1 0am upavked be 
and a wad of paper purporting 
to be the User Guide. First 
__ tremor — does it really involve 
_ this much work? Identified 
microdrive cartridges. 
Discarded leads for 
networking system. My QL 
not even talking to me yet, let 
alone other computers. Had 
cup of coffee (Just coffee — 
Ed?). Is this the beginning of 
computer literacy? 


10.30 am First technical 
encounter — ring binder and 
numerous pages of 
instructions — goes very well. 
Experience surge of 
confidence, Sir Clive not such 
a bad bloke after all. 

Open manual at page 1, 
Introduction, and understand 
everything written. So far, so 
good. Clear diagrams, ports 
and connectors easily 
identifiable, everything fine. 


Mains plug on, power supply 


plugged in, television link 
achieved, and there’s the 
copyright screen. So far, so 
very good. Now on to ‘Using 

. and a quick cup of 
coffee. 


11.45 am Keyboard. ENTER, 
SHIFT, CAPS LOCK, all 
familiar, all working well. 
Who said 16-bit machines 
were sophisticated? Onto 
DELETE ... ‘Hold down 
CTRL’. CTRL?!? There isn’t 
one! There must be — if I just 
hold down the left-hand ALT 
key and press the arrow ....ah, 
yes. I see. CTRL is in fact 
marked ALT, and ALT is 


marked ALT, so all Ihave to do 


is remember that ALT is 


CTRL except when it’s ALT — 


quite easy really. NOW I see 
where the sophistication 
comes in. Wonder how many 


other QLs left the factory with 


two ALT keys? 


2.00 pm Now for the good bit. 
Word-processors are the only 
thing I use on any computer. 
Quill, much talked of as an 
excellent program, is clearly 
the best starting point for me. 
Turn to ‘Introduction to the 


QL Programs’, page 8 of the 
manual’s first section, to be 
told I should make back-up 


copies of all original programs. 


Furthermore, I should never 
use the original program, 
except when copying it!? 

But... IT haven’t got any 
blank cartridges to make 
back-up copies on! Does Clive 
really mean I can’t use Quill 
until I trek off and buy some 
more microdrive cartridges? 
Coffee not strong enough this 
time. One gin and tonic later, 
turn to Beginner’s Guide, 
page 1 chapter one ‘Starting 
Computing’. 


2.30 pm Write my first 
program in SuperBasic: 


‘Confusion reigns supreme’ — 


it runs! Progress to using the 
QL as a glorified calculator. 


2.45 pm Hit first major snag. 


(That didn’t take long — Ed!). 


Have learned difference 
between Direct Command, 
when statements are put on 
the screén and answered 
immediately, and 
Programming Mode, when 


lines are numbered and stored 


until the RUN command is 


typed in. Have learned 
rudiments of EDITing my 
productions (all three lines of 
them), but have failed to find 
out why the results are 
displayed in the top left-hand 
corner of the screen, on top of 
the program lines! Consequent 
mess on screen makes it 
difficult to read the results or 
see how I got them there. 
Much reading of manual, 
backwards and forwards, no 
solutions forthcoming. End of 
chapter 2 heralds deep 
depression. 


3.15 pm Call in expert. “Oh, 
yes”, says he, “they wrote this 
manual using a colour 
monitor, not a common or 
garden mono TV. Since 
monitor mode gives a split 
screen, monitor users don’t 
have this problem. Since 
you're using the economy TV 
mode, you do two things. Have 
a gin and tonic. Then insert 
extra line before PRINT 
statement, to CLEAR screen 
before RUNning program.” 
Sure enough, listing 
disappears, result of program 
displayed (still in top left-hand 
corner) alone on screen. LIST 
command puts program 
listing back on screen in the 
centre, nice neat solution. 
Alternatively, use monitor 
mode instead of TV mode 
recommended by manual, and 
ut up with not being able to 
ead the whole of each line of 
our program. Why didn’t 
live tell me himself? Restore 
sed confidence by dark 
tterings in corner. Feel 
tter. Bruise confidence once 


‘hapter 2. Excellent 
ure of manual, this, I just 


10am Settle in for long & 
. Chapter 3, Drawing 
een, discover mono TV 
other disadvantage... 
lour. Wrest colour 
ision from family, set up 
art again. All goes well 
exercise on chapter three 
;me to write my own 
-am for random lines, and 
turally call my program 
gment ‘line’. Program 
Fises to RUN due to “bad 


name”. Discover that ‘line’ is a 


ILLUSTRATION BY STEVE DEW 


: | keyword, and camnok = used 


sa variable. Why have I not 


- been told this before I am 


asked to launch out on my 
own? I’m on page 18, keywords 
are dealt with in a completely 
different section and I haven’t 
been referred to it! The air 
turns blue. Rename offending 
section FRED and program 
runs. It doesn’t, however, 
produce the required effect 
because in order to achieve the 
answer to the problem set on 


| page 18, I need a piece of 


formation tucked away on 
age 32. No comment. Expert 
ays I can’t expect all the 
information I need to be in 
order, I just have to grit my 
teeth and follow up every point 
until I find it. Send expert out 
for more bottles of gin. 
(Corrupting the innocent — 
Ed). 

Time unknown (whether due 
to gin or enthusiasm is not 
clear). Chapter 4 on 
Characters and Strings seems 
straightforward. The only 
problem seems to be that when 
Irandomly generate 
combinations of ABC, and 
struct the program to stop 
when it reaches CAB, it 
doesn’t! This highlights one of 
the fundamental difficulties 
beginners have with 
computers: ‘Is it me, the 
machine or the manual, and 
have I the patience to find 
out?’ Decide I have and am 
rewarded by Chapter 5 which 
tells me that I have already 
begun to work effectively with 
short programs, and well 
understand the machanics of 
running them. On reflection, 
feel this is probably true. 


Ihave now reached the point 
of formatting a microdrive 
cartridge, duly acquired from 
the high street, and am 
referred back to the 
Introduction for instructions 
(irritating, to say the least). It 
gets worse. On reading the 
Introduction, I am told to be 
careful with microdrives and 
refer to the Information 
section for details on how to 
format! Resist temptation to 
hurl fragile cartridge through 
window and turn to 
Information, currently at the 
end of the manual. I seem to 
have strayed an awfully long 
way from Chapter 5, which 
tarted all this. However, 
matters don’t improve as Tam 
taken aback to discover that 


formatting is not dealt with 


until the last page of the last 
section of the manual! I realise 
that bad publicity in the past 
may account for a certain 
diffidence about microdrives, 
but this is ridiculous. 

There is one telling little 
phrase, “It is good practice to 


format a new cartridge several 
times.” Expert tells me it’s not 
so much good practice, more in 
the nature of a necessity. Am 
less than impressed to be told 
that the underscore symbol 
and the minus sign are on the 
same key, so I must be careful 
not to confuse them when 
using the underscore for 
formatting. It seems to me, as 
a mere novice, to be asking for 
trouble to add confusion 
during a critical operation, but 
perhaps there’s some deeply 
significant technical reason 
for it... 

Proceed to format. All goes 
according to manual until I 
format the same cartridge for 
the third time. Am then told 
that the capacity is 219/219 
instead of 220/221. A fourth 
attempt reduces the capacity 
to 218/219, and a fifth 
confirms that figure. Scurry 
through manual to be told that 
several formattings increase 
capacity of cartridge. Decide to 
calla halt, on the grounds that 
if it is in fact increasing when 
the numbers displayed get 
smaller, then the formatting is 
working and I’ve got enough 
capacity for my feeble efforts, 
and if the exercise is 
decreasing the capacity, I'd 
better stop whilst I’m still in 
business. Can’t as yet find any 
explanation for this quirk in 
the manual ... it’s probably 
entirely obvious to the litterati 
of the computing world, but to 
me it’s one more illogicality in 
this most logical of modern 
pursuits. 

Just for fun, I ask for 
DIRectory of my blank 
cartridge, only to find I’ve lost 
another sector of storage 
capacity in the process. Begin 
to appreciate warning about 
losing all programs and data if 
formatting a full cartridge. I 
seem to be losing them before 
Ive even stored them. Return 
to chapter 5. 

Type in two-line program 
and SAVE it to cartridge. It 
takes countable seconds, 
which surprises me, and 
reduces the storage capacity 
figure by three digits. The 
display which allows me to 
keep track of how much space I 
have left is comforting. 
Standard BBC disks, for 
example, are much too prone 
to filling up without warning 
and store comparatively little 
data. 


Time — no idea Progress to 
COPYing from one microdrive 
cartridge to another, and _ 
FORMAT second cartridge in 
microdrive 2. Expert tells me 
this is fraught with danger, 
since if I mis-type, I run the 
risk of obliterating contents of 
cartridge in drive 1. I do it 


anyway, and discover that my AU 


second cartridge starts off 
with a capacity of 215/216, 
increases on the first operation 
to 217/218 and is then reduced 
again to 217/217, where it 
stabilises. Curiouser and 
curiouser. However, must not 
complain since I’m only 
entitled to a capacity of 
200/200, says expert, and 
anything over that is a bonus. 
Mess about for a while with 
MERGEing programs and 
reading the general note 
which tells me once more how 
important back-up copies of 
programs are. This is 
beginning to make me 
nervous. It is clear that I must 
use a minimum of three 
cartridges in order to be sure of 
SAVEing an important 
program — one to write and 
store as I work, and two to 
keep the program when 
finished. Although I can then 
reformat the original cartridge 
and use it again, we’re still 
talking about tying up £4 
worth of cartridges for each 
program. Can't help feeling 
the sooner Sinclair launch the 
disk-version of the QL, the 
better! 
Spend countable minutes 
trying to tidy up a program in 
the Problems section which 
looked fine to me in the first 


place. Move on to Arrays and — 


Loops, only to have everything 
explained so carefully that it 
confuses me. In fact, I know 


_ more than! think Ido, but lack 


the confidence to do anything 
other than slavishly follow the 


_ manual, which alternates 


between painful detail and the 


- quantum leap into 


sophistication which leaves 


the beginner stranded. It helps’ 
_ at this point to have some _ 


that, no ) matter how ¢ compe ent 
the manual, most learners will 
benefit from the occasional 
consultation, even with 
another learner. 


Day 3. 11 am Heavy night 
does nothing to encourage 
enthusiastic approach to 
today’s session. (Ah, the 
wonders of alcohol — Ed). 1m 
now roughly halfway through 
the Beginner’s Guide to 
programming, have come to 
terms with a fair number of 
keywords and gleaned some 
interesting things from the 
Information section as well as 
making the acquaintance of 
the infamous microdrive 
cartridges. So far, I’m quite 
impressed with the manual 
and pleased with my progress. 
I'm nervous of the storage 
procedures, since they seem to 
offer too many opportunities 
for disaster, particularly to 
those in the first throes of 
computing, but microdrives 
are clearly something to which 
you get used to eventually. 
That’s not to say they're a good 
idea, but every computer on 
the market has its drawbacks, 
and at £200 for the QL, 
forgiveness comes easily, and 
cheap! 

_ NowIm confident the 
machine is basically friendly, 
and I have my back-up 
cartridges, I think 98 rest of 
the manual shouldn’t provide 
any great problem (famous 
last words?) and there’s 


always Quill to provide 
_ something a bit lighter — it 


looks like being three more 
days of enlightenment! 


OSes 


it 


Ihe Bristol based company, 
Metacomco, has been making 
quite a name for itself with 
the Motorola 68000 machines. 
In the QL systems software 
market, their five language “de- 
velopment kits”, though quite pricey, 
have been receiving some very good 
reports. We decided to put them all to 
the test. Are they really superior pro- 
ducts? 

The five packages we looked at 
were Assembler, Lattice C, BCPL, 
Pascal and LISP. One of the most 
striking features of all these products 
is their degree of compatibility and 
interaction — even the packaging 
looks the same. For instance, 
whichever language you choose, they 
all contain the same screen editor 
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format, making the transition from 
one kit to another very easy. 

The on-screen editor runs in a 
user-definable window, and _ will 
work on any ASCII coded file, so 
there’s no reason why you shouldn’t 
use it to edit from other sources, such 
as a SuperBasic program. The wide 
variety of commands fall into two 
main categories: immediate com- 
mands and command lines (extended 
commands). The latter allows for 
such facilities as block manipulation 
and search and replace, and these 
can be grouped, repeated and nested 
for quite intricate command se- 
quences. Whilst the immediate com- 
mands cater for the more usual scrol- 
ling, inserting and deleting. 

Metacomco’s two-pass Assembler 


is probably the most comprehensive 
assembler currently on the market, 
but is also the most expensive. In 
addition to the expected facilities, 
including full 68000 mnemonics, the 
Assembler currently on the market, 
host of extra features. These include 
macro assembly, absolute and 
relocatable code and conditional 
assembly. It’s also possible to link 
assembly language modules 
together, or to other metacomco 
language modules, such as BCPL or 
Pascal. This is augmented by the 
XDEF and XREF directives included 
in the Assembler for referencing 
external symbols. Linking is particu- 
larly useful given the size of the 
Assembler which overlays to fill up a 
large portion of available RAM on an 


unexpanded machine. In addition to 
the mnemonics for conditional 
assembly, macros, and so on, ten 
extra directives allow the user to con- 
trol the format of the listings. 

The two major competitors in the 
assembler market are the products 
from GST and Computer One. The 
former is by no means a bad product, 
though lacking in some of the 
panache of the Metacomco offering. 
The manual is very brief by compari- 
son and, though containing a full 
editor, it is not as easy to use, especi- 
ally when debugging. It does how- 
ever have the advantage of using 
only about one third the memory of 
the Assembler Development Kit. The 
Computer One Assembler is cheaper 
and quite different from its com- 


petitors. Using the multi-tasking 
features of the QL, the editor and 
assembler are clearly distinguished 
as separate tasks running concur- 
rently. Lacking in many of the fea- 
tures of the other two products, such 
as macro assembly and linking, it is 
nevertheless very easy to use, and is 
likely to appeal to the less experi- 
enced programmer. As always, the 
decision will depend on the price. If 
you can afford the best, then buy it. 
Until a few years ago, only profes- 
sional programmers would be found 
using C, though it must be said that 
it wasn’t unusual for them to fall in 
love with the language. These days, 
the popularity of the language is 
becoming quite widespread, and it is 
generally viewed as a logical step- 


ping stone between a high jeval. | 
language and true assembly 
language programming. 

The Metacomco QL C Develop- 
ment Kit is an implementation 
known as Lattice C, conforming to 
the C implementation described by 
Kernighan and Ritchie (K&R — yet 
another standard). The package is 
supplied on a ROM, which plugs into 
the socket at the rear of the QL, and 
three microdrive cartridges. The first 
of these contains the runtime editor 
and linker, allowing code modules to 
be connected. The other two car- 
tridges contain two distinct compila- 
tion stages. The first stage produces 
an intermediate file which is then 
finally compiled into relocatable 
68000 machine code by the second 
phase. The reason for performing the 
compilation this way is to reduce the 
size of the compiler parts, leaving 
more free memory. Though a little 
awkward to use this two phase pro- 
cess can be automated using QLC 
which prompts the user for necessary 
information during the compilation. 

The only exceptions made to the 
K&R standard is the inclusion of 
GETCHID which return a channel 
identification, often necessary for the 
use of QDOS1, QDOS2 and QDOS3 
which call the QDOS 68000 TRAP 
instruction. Though rather clumsy to 
use, these two additions do give 
access to the majority of QL-depen- 
dant features. 

The major alternative to the 
Metacomco product is RATC from 
GST. This is definitely a budget-line 
product, however, and I would recom- 
mend it to anyone not familiar with 
the C language. GST RATC has been 
designed specifically for use on the 
QL, and includes a range of QL- 
dependant instructions, making it 
easier to use for the beginner. On the 
other hand, Lattice C is a portable 
system, designed for more profes- 
sional use. 

BCPL is still a little known 
language amongst the home comput- 
ing fraternity. However, the fast, 
compact code produced by the 
language have long made it popular, 
much like C, as a high level alterna- 
tive to assembly language. The pack- 
age is supplied on a single microdrive 
cartridge including the editor and 
linker for linking separate BCPL 
modules or Metacomco Assembler 


segments. 
The BCPL program is compiled 
directly into 68000 machine 


language. This must then be linked 
with the runtime library, and any 
other modules, to produce the final 
program. This can then be run using 
EXEC or EXEC_W, enabling BCPL 
programs to be multi-tasking, if 
required. 

Unlike their Lattice C product, 
Metacomco’s BCPL includes not only 
the standard functions, but also a 


comprehensive range of QL-depen- |, 
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ILLUSTRATION BY DAVE EASTBURY 


The fine Metacomco 
Development Kits — exceedingly nice 
if you can afford them! 


dant instructions, allowing simple 
use of windowing, graphics, charac- 
ter founts, time and date, and so on. 

The QL Pascal Development Kit is 
particularly notable for conforming 
to the ISO standard. To the layman 
this merely means that the system is 
consistent with international 
standards, ensuring the Pascal pro- 
grams written on the QL are readily 
transferable to any other computers 
running a standard system. 

The package is supplied partly on 
ROM, with the runtime editor and 
compiler on separate microdrive car- 
tridges. As usual, there’s a hefty 
tome accompanying the software, 
detailing the use of the editor, com- 
plete syntax of the language, exten- 
sions and a couple of example pro- 
grams. 

This implementation of Pascal has 
been written using a mixture of 
BCPL and 68000 assembler and an 
EXTERNAL directive is included to 
allow linking between modules from 
the different languages. 

The single pass compiler produces 
pure 68000 code, rather than the 
intermediate p-code generated by 
many products. This means that the 
final code, which is run using EXEC 
or EXEC_W and does not require the 
plug-in ROM to be present, will run 
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faster than the code produced by 
many other systems. 

Naturally, the ISO standard Pas- 
cal doesn’t allow the use of QL-depen- 
dant features, and an EXTEND 
directive is included which allows a 
number of ISO extensions to be us- 
able. One of these extensions is 
QTRAP which allows information to 
be passed to and from the 68000 
TRAP instruction. Though a little 


The two-pass Assembler is 


probably the most comprehensive 


on the market. 


unwieldy, this effectively gives 
access to the majority of QL facilities. 
Another very useful extension is 
INCLUDE, which allows additional 
program segments to be included at 
compile time, permitting the user to 
create his own library of routines. A 
set of extension graphics routines is 
supplied which can be inserted using 
the INCLUDE statement, giving 
easy access to windows, plotting, ran- 
dom numbers, time and date, and so 
on. 

This is by no means the only Pascal 
system available, though the only 
package which can really compare 
with it is UCSD Pascal from TDI 


Software Ltd, which costs the same. 
For my money, Id prefer the 
metacomco product, which has the 
more acceptable standard, and is 
compatible with Metacomco’s wide 
range of other languages. For a 
cheaper alternative, Computer One 
Pascal is worth looking at, though 
it’s not really in the same league. 
Though previously sparsely used, 
LISP has become quite popular in 


The decision depends upon the 
price — if you can afford 
the best, then buy it. 


recent yars, mainly due to its 
inclusion in research and develop- 
ment within the field of artificial 
intelligence. 

Supplied on a single microdrive 
cartridge, Metacomco LISP is, as 
with most, an interpreted system. 
Compatible with Acornsoft Lisp on 
the BBC micro, this version offers 
quite a few extra functions and large 
16-bit numbers. 

The structure and format of the 
LISP language is very simple, and 
it’s not necessary to have more than 
the bare essential commands from 
which to work. It is intended that 
users build their own set of LISP 
extensions using these core com- 
mands, and from these extensions 
write the programs. Nevertheless, it 
is usual for LISP packages to include 
a range of the more common 
routines. Metacomco have included a 
fairly comprehensive, tough not 
excessive, range of core instructions, 
comprising all the structure manipu- 
lation commands normally found. 
Supplementing these are turtle 
graphics, a pretty printer to format 
the often garbled listing (brackets 
everywhere!), a trace function to aid 
debugging and a garbage collector. 
You're only likely to find the latter 
useful if you intend to write pretty 
phenomenal programs, given the 
memory available on the QL. 

Metacomco software is admittedly 
quite expensive. Given the new low 
cost of the QL, the Pascal and Lattice 
C products are each half the price of 
the machine. Having said this, if you 
can afford them, they are definitely 
worth the money, emerging as very 
professional products. The degree of 
interaction possible by linking mod- 
ules from different packages is well 
thought out and undeniably useful, 
allowing most code to be written at 
high level, with time critical modules 
written, say, using the Assembler 
package. As a final note, would-be 
software developers will be pleased 
to hear that the Pascal and Lattice C 
packages both produce public 
domain software. This means that 
any programs produced using this 
system, along with their runtime lib- 
raries may be freely sold, without 
any obligation to Metacomco. 
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QL SuperTOOLKIT QL 


Version 2 of the Qjiump CARE Toolkit is an extended (over 100 commands) and 
extensively improved version of the original QL Toolkit. QJUMP/CARE 
& LD SuperToolkit comes on 16K Eprom Cartridge together with Library Rack 
UNM and comprehensive manual designed specifically to suit your QL ring binder. 
Loads instantly no microdrive worries. Super Toolkit is undoubtedly the best 

Software/Hardware addition for your QL that is presently available. If you doubt us visit the ZX 

Microfair Stands 215 and 216 and see for yourself, or call in at Care Electronics but bring 

sandwiches, it will take some time to read the manual. p.s. We will supply the coffee. 

Quality software by Tony Tebby, Quality product by Care Electronics 

SuperTOOLKIT @ £34.50 Inc VAT p&p £2. To order see below. 


DON’T BUY A COLOUR MONITOR! 
HAVE YOUR 14” & 16” PHILIPS & P 
COLOUR TV CONVERTED TO A SVMONITOR 
REMOTE AND STANDARD 7TV’S 
ONLY £69.00a Inc VAT 
RGB CONVERSION KIT 
ONLY £55.20a Inc VAT 


x Resolution better than 585 x 450 pixels. 

* Image clarity comparable to leading monitors. 

x Includes RGB lead for connecting with BBC/QL. 

* Conversions carried out at our workshops within 2/3 days. 


PRINTER INTERFACE|ROM CARTRIDGES 
Baud Rate Switchable. One £10.35¢ Inc VAT 


Drives any Centronics Printer. ae agin a ae 
. c 


By Post. Enclose your Cheque/P.O. made payable to CARE Electronics. 


OL monitors anDTv/moniTors 
PHILIPS COLOUR &5 CHARACTERS 
+ TV/MONITORS lil PER LINE 
MEDIUM RESOLUTION 
14” MODEL 14CT2006 £253.00a Inc. VAT 
REMOTE CONTROL SUPER VALUE 


16” MODEL 16CT2216 £311.65a Inc. VAT 
We can supply up to 26” TV/Monitors 


please ring for details. 
ANTI-GLARE SCREEN gle le 


HIGH RESOLUTION LEADS SUPPLIED 
GREEN MODEL BM7502._—sFOR USE WITH QL 


@ £82.80a Inc. VAT 


. Or use your ACCESS. Allow 7 days for delivery. Please add carriage. 
AMBER MODELBM7522 JHOW TO ORDER: open! “oom spm MON-THUR a)@ 8.00 c) @ 1.00 
@ £82.80a Inc. VAT gam-4pm FRISAT b)@5.00 d) @ 2.00 


UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD'S APPROACH, WATFORD, HERTS. TELEPHONE: 0923 777155 Se 


|)! es THE LOST KINGDOM OF ZKUL 
P U T WEST (text adventures) 


Explore the ancient dwelling place of Dwarves — or pit your wits and 


reflexes against a gang of robbers in a Western ghost town. These 
~ Challenging text adventures are stimulating, addictive — and highly 

enjoyable. 

“WEST will please not only adventure addicts but anyone who ever frowned 


a SS ae ee a a ee es into a puzzle of any sort’’ QL USER 
The quality of the game is superb — this is the standard the others have to 
beat.” MICRO ADVENTURER on ZKUL 
Available from selected branches of W H Smiths or direct from TALENT 

each 
CARTRIDGE DOCTOR ee 
postage and packing) 

Your data is worth alot to you. Source programs, text, scientific information, 

records, all represent hours of time and effort. The CARTRIDGE DOCTOR will, COSMOS 

in most cases enable you to: 

by G F Cornwell 


@ Recover files from damaged or suspect cartridges, even files 
inaccessible to BASIC Identify over 500 stars and planets with this impressive astronomy 
: program. COSMOS displays your choice of star maps for any date and 
@ Recover newly-deleted files time and for any part of the world. 


@ Recover files with lost or damaged blocks (in BASIC, QUILL etc.) View the solar system, the moons of Jupiter, the rings of Saturn — 
using the FILE PATCH UTILITY. even Halley's Comet. Call up comprehensive information on any 
j visible object in the sky. Menu-driven, easy to use — a fascinating 


The CARTRIDGE DOCTOR is easy to use. Itincorporates a powerful rule-based addition to your QL software library. 


expert system which can make sensible decisions andautomatemuchofthe —yailable direct from TALENT 
labour needed to recover lost data. An extensive set of tools is also provided (Please add 50p 
for the informed user. Full instructions are included. postage and packing) 


Available from selected branches of W H Smiths and Boots 
or direct from TALENT. 


, al aV, i em CURRAN BUILDING, 101 ST JAMES ROAD, 
(Please add SOp 
postage and packing) 2 Wa NY 24 Hour Credit Card Hot-Line 041-552 2128 


COMPUTER ENE SOFTWARE FROM SCOTLAND 


NAME 
COMPANY 


ADDRESS 


POSTCODE 


TEL. NO. | enclose a cheque for£_____or 
SIGNATURE debit my ACCESS/VISA Account No. 


oe 


Card expiry date: 


Price includes VAT, postage and packing UK maintand only. Immediate delivery ex stock. 


MIRACLE SYSTEMS 


— 14 day money back guarantee on all products — 
— 12 month warranty on all products — 
QL CENTRONICS PRINTER INTERFACE 


* Complete unit including 3 metre cable 
* Plugs into either SER] or SER2 


QL SERIAL CABLE 
* 3metre cable 


QL JOYSTICK ADAPTOR 
*- Lets Atari/Commodore/Spectrum joysticks plug into CTL ports 


New problem solver 
for Oe 
-E demo pack. 


FR 


QL SCREEN DUMP 
* Copies whole or part of screen to | 


Equate ‘wii solve your 


problems in home, school, 
business and workshop. 


QL DOUBLE EXPANDER 
* Connects both RAM and DISK to QL 
(Not necessary for MIRACLE EXPANDI 


QL MODAPTOR 

* Links QL to 300/300, 1200/75, 1200/1200 modem And you’ll enjoy using it. 

QL MOUSE 

QL EXPANDERAM 256 Send now for a FREE pack 

* 256K RAM with through connector for DISK I/F explaining how. Use the coupon 

QL EXPANDERAM 512 below or call: 

* 512K RAM with through connector for DISK I/F 

QL RAMDISC SOFTWARE 010 353 74 21255(24hr.) 

* Configures RAM as disk lookalike 

* Ideally suited to MS EXPANDERAM ca rar ratcatm mameracierfa 

* Enables Microdrive software to run much faster with less wear on []Send to: Flite Software Ltd., P.O. Box 302 sGlasaowy 
microdrives G129 HQ 

* Fully compatible with Psion packages, SuperBasic etc. cae i See eel 

MIRACLE SYSTEMS LTD Please send CWO. Name : 

AVONDALE WORKSHOPS Access order welcomed. {] Address 

WOODLAND WAY Send SAE for catalogue. 


2 abate SINCLAIR and QL are trade {] | F L | | T E 


marks of Sinclair Research Ltd 


BS15 1QL Tel: (0272) 603871 Ext 210 ru! 


se 


1 Computer Accessories 
Microdrive Storage Box 


e Fully interlocking e Holds 20 cartridges + index cards 
ex MiGrOdhiVeIBOXG, une ee £4.95 
Microdrive Box + 10 blank cartridges . $22.45 
Microdrive Box + 20 blank cartridges. . $39.95 
Blank cartridges ............. eee hor, £1.95 
QI DUSECOVEIS! G.sctiaawon ae 285,00 
Spectrum Monochrome Monitor Connector . . . £11.50 
Spectrum RGB Interface .............. £45.00 | 


Disc Storage Boxes 


e 3%2" Disc Storage Box Holds 25 discs....... £9.20 ; $920 
e@ 5%” Disc Storage Box Holds 50 discs. ..... £13.90 


E ° — of . a sis Gisest™aar, Metin cinhareee oe 
; d VALCS/.SiGISCS eae ean at V6 

Available from W.H. Smiths, © Box of cae He 

John Menzies ® Se6cium Stores. @ Storage Box (holds 30 3%” discs or 203” discs) ... . 813.25 


TRANSFORM LTD. (DeptQL) 089 283 4783 


Lucks Lane, Paddock Wood, Kent TNI2 6QL 
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Nota game but a real full feature flight simulator 
for the Sinclair QL written by an Aeronautical 
Engineer for pilots and student pilots alike. QL 
Flight (QLF) is a view orientated flight simulator 
which means you can actually view your 
surroundings. First set up the weather in each of 
the nine worlds selecting wind speed, wind 
direction and cloud ceiling. Select your starting 
world then your QL moves fo the cockpit view! 


Once in the cockpit with your seat 
belts firmly done up start the engine, 
lower the flaps, increase the revs 
and with releasing the brakes your 
actually moving down the runway!! 
2 As you clear the runway the scene 
— .. of the world your in, comes into 
COCKPIT VIEW view! Bridges, mountains, power 
PRE TAKE-OFF lines, towers, everything is there in 
this realistic simulation. You can 
even fly from one world into 
NINE DIFFERENT another! Imagine taking off and 
WORLDS TO flying under a power line then into a 
FLY AROUND treacherous mountain world and 
landing between 2 mountains, re- 
fuel, take off again and into another 
world with a low cloud ceiling, now 
its time to switch to QLF’s unique 
“RADAR” view. QLF features all the 
major instruments including 
artificial horizon, altitude, compass 
climb, revs - plus all the usual 
aircraff components - flaps 
landing gear - trim and rudder - 
ailerons. 


RADAR VIEW OF WOR 


MICRODEAL 


QL FLIGHT 
SIMULATOR 


VIEW OF MOUNTAIN 
WORLD 4 ON SET UP SCREEN 


REALISTIC 
MOVING 
GRAPHICS 


VIEW OF MOUNTAIN WORLD 8 


LAND - RE-FUEL 
THEN TAKE OFF 
AGAIN 


APPROACHING THE RUNWAY 
IN WORLD 8 


QL FLIGHT REALLY IS A REAL SIMULATOR Keyboard or Joystick Compatible 
619.95 POST/PACKING 75p ON PROTECTED MICRODRIVE CARTRIDGE 


TO ORDER USE OUR 24 HOUR SYSTEM 


ENF By Phone: 0726 68020 aS 


By Post To: 41 Truro Road, St. Austell, Cornwall PL25 5JE 
OR ORDER FROM YOUR LOCAL QL DEALER 
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Archive is a powerful and 
versatile database but one false 
move and you’re lost! Now Chas 
Dillon explains how to get out of 

a tight spot and recover the 
irrecoverable. 


The only redeeming feature of the 
manual filing systems of the pre- 
electronic era, aside from the fact 
that they assured employment for 
innumerable filing clerks, was that 
the most complex foul up that might 
occur was a jammed cabinet drawer. 
Unlike modern database programs 
there was no question that some 
slight technical mishap might result 
in the loss of all information 
painstakingly entered onto the 
system, often at considerable cost. 


Reasons For Corruption 


It is not possible, or relevant here, to 
be specific about the causes of all cor- 
ruptions to databases, but certain 
generalisations can be made. Cor- 
rupted files are likely to originate in 
one of the following ways: 

1. A bug in Archive 2.0 ensures 
that when backing up files greater 
than 32K, the backed up copy will be 
corrupt. 

2. Failure to CLOSE a file opened 
in Archive with the OPEN command, 
and the removal of a file from the 
system before QUITing or NEWing 
will corrupt any database currently 
being worked upon. 

3. Pressing RESET when drives 
are still whirring. This is fatal irres- 
pective of whether you are used to 
Archive or any any other program. 

4, Where suspect media is being 
used. For example using old or worn 
out microdrives or substandard 
disks. With the latter, for peace of 
mind, ensure that they have 96track/ 
inch certification. 

5. A freeze up on the QL arising 
from the fluctuations/interruptions 
in mains power, leaky cables and 
other hardware faults. 

Looking at the first cause, unless 
you have obtained a patch program 
over Psion’s hotline for your Version 
2.00 or have updated to version 2.3, 
the only way to avoid falling foul of 
the BACKUP bug is to avoid the com- 
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mand altogether and revert to using 
the SuperBasic Copy command from 
outside Archive. 

As regards causes 2 & 3, these 
arise from carelessness or ignorance 
on the part of the user. They can be 
avoided by following the procedures 
laid-out in the manual: 

1. Never reset the QL whilst a 
drive is whirring. 

2. Never remove a disk or car- 
tridge without first closing all files. 

3. Never leave Archive other than 
by issuing a QUIT or NEW com- 
mand. 

The two remaining causes for cor- 
ruption arise from machine errors so 
there is little the user may do to 
forestall them. Fortunately, they are 
extremely rare. In the course of run- 
ning an Archive remedial centre we 
have found causes 1 to 3 are respon- 
sible for virtually all the instances of 
file corruption. 

Having looked at prevention we 
can now develop a program geared to 
recovering information from corrupt 
databases. Because of limited 
information concerning Archive’s 
workings you should bear in mind 
that the basis of the program is 
empirical and that most of the ‘facts’ 
presented are no more than educated 
guesses — deduced from examina- 
tion of Archive files. 

You should also note that the pro- 
gram reads from and writes to the 
particular disk or cartridge upon 
which our corrupt database lies. This 
means that we assume that the disk/ 
cartridge directory is intact. If this is 
not the case and data is to be re- 
covered from a volume that has a cor- 
rupt directory, then the preliminary 
work required to reconstitute the 
directory will be covered in our “On 
disk” series and not here. 


Inside Archive 


An Archive database comprises 5 ele- 
ments 


Section Description 
il Control record 
Data Section 
2 File data table 
3 File index table 
4 Free space table 
5 File structure table 


The control record is made up of the 
first 20 characters of the file. It 
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begins with a two byte RCW (record 
control word), followed by an eight 
byte file identifier (usually 
‘vrmdbf0’) followed by four control 
fields, defining relative starting posi- 
tions of the subsequent sections of 
the file. 

The data section of the file contains 
all the records. The order in which 
they appear differs from the order in 
which they were defined using the 
CREATE command in so far as all 
numeric fields occur at the start of 
the record, followed by all of the 
string fields. A record is terminated 
by a two byte ‘tag’ field. 


Bits And Pieces 


Archive pools space within this sec- 
tion of the database so that ifa record 
is deleted, the space occupied by the 
record is not compressed or otherwise 
adjusted. Instead, the free space 
table (section 4 of the file) is adjusted 
to show that this space-is free for re- 
use. Consequently, when scanning 
through the file data, the end of one 
record may in fact not be the start of 
the next record, but rather a section 
of free space, which may appear as 
‘rubbish’ — that is, it does not decode 
sensibly. A new record start point 
has then to be found. 

The file index table is present even 
if the file is not ordered. Each entry 
on the index contains a pointer to a 
record in the files. Associated with 
each pointer is the value of the 
appropriate key field(s) from the 
record pointed to. The sequence in 
which entries are arranged in the 
index table determines the logical 
order of records on the database file. 
This order may be implicit ifthe user 
has not specifically ORDERed the 
file or explicit if he has. The index 
also has a small control table at the 
front of it. 

The free space and file structure 
tables are organised in a fashion 
similar to the file index. They con- 
tain pointers to the free space in the 
file data area, and the names and 
type definitions of the database 
fields, respectively. They are of little 
significance in the present context. 

Even armed with the knowledge of 
how a database file is organised 
decoding corrupted data must still be 
a hit or miss affair. The reason for 
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this is that we cannot know for cer- 
tain the exact extent of the corrup- 
tion. It may just affect a data record 
or two but then may just as well 
affect the control record and all the 
control tables making it almost 
impossible to work out where a 
record starts, where it ends, whether 
the next piece is a new record, free 
space or even the end of the file. 
Indeed, the most complicated parts of 
the program are designed to uncover 
exactly this information. 

The technique adopted here for 
recovery is to piece together an 
export file from data selectively 
extracted from a corrupted Archive 
database. Where necessary this 
‘psuedo’ export file may be further 
edited using a standard text editor 
(eg, Metacomco’s ED), before being 
IMPORTed back into Archive. 

The program relies heavily on the 
user’s knowledge of his own 
database. The user must first tell the 
program precisely how the database 
was CREATed. Using this inform- 
ation, the program then scans and 
decodes the file data section of the 
file. As each new record is started, 
the program displays the contents of ! 
the decoded file, and asks for confir- 
mation that the field value is accept- 
able. Given confirmation, the pro- 
gram will then go on to decode the 
rest of the record, which is optionally 
displayed as it is written to the out- 
put file. 

There are certain tests in the pro- 
gram to check for ‘reasonableness’ of 
the data. For example, very long 
strings may not in fact be long 
strings at all, but merely appear so 
because the string controller is cor- 
rupt. If these tests are failed, the pro- 
gram displays the decoded value and 
reports the error to the user, who 
then has the option to accept the field 
or invoke one of several corrective 
actions. This process continues until 
you opt to ‘quit’ or the data ends. 


Running Commentary 


The program conducts a sort of dialog 
with the user. Prompts are issued 
and the user responds. Each prompt 
displays the. range of acceptable 
responses. The first response in this 
list is always the ‘default’ — (ie, the 
assumed response if only the ENTER 


key is pressed). 

Working through the prompts, the 
first thing you will be asked for are 
input and output file names (and 
devices). The output file will be con- 
structed in the form of an Archive 
‘export’ file, and will typically havea 
name of the form ‘dvc_name_exp’. 
The input file should be the name of 
the ‘corrupted’ Archive database to 
be recovered (NB. The name should 
contain no underscores and should be 
less than 9 characters long). Default 
extensions ‘_dbf and ‘_exp’ will be 
added where necessary. 

The next prompt allows the user to 
choose between displaying records as 
they are transferred to the export 
file. The program then loops and on 
each pass requests the name of a 
database field. The database fields 
must be declared in exactly the same 
sequence that they were given to 
Archive (in the original CREATE 
command for the input database). 
String fields should have the $ sign 
at the end of the name. The loop ter- 
minates when only ENTER is typed. 
As an option, these field names may 
be read in from a proc file, created in 
Archive, containing only one proce- 
dure, with the defining “create” 
statements for the corrupt database. 
In this file, each field name must be 
on a separate line. 

During the loop, each successive 
field name is displayed on the upper 
screen — this screen remains in place 
for the duration of the program. 
When the loop terminates, the pro- 
gram asks the user to check that all 
fields have been entered, and in the 
correct order. If the response is ‘NO’ 
the program terminates as no useful 
work can be done. In such a case, the 
user should re-start the program and 
enter the fields correctly, or alterna- 
tively regenerate the definition file. 

Given the instruction to proceed, 
the program attempts to decode the 
database control record, and displays 
on screen the value for the length of 
the data table. This value is not 
really meaningful except that the 
actual data portion of the file is 
unlikely to be less than the displayed 
figure. 


Road To Recovery 


The program now gets stuck into the 
business of recovering data. At the 
top of the screen it displays running 
counts of the number of characters 
read and the number of records writ- 
ten. It prompts the user as follows: 

a) “FIELD (FIELDNAME) OK 
(Y/N/R):” 

This prompt is prefixed by a display 
of the field contents. It serves the 
purpose of identifying the value 
about to be written as the first field of 
a newly recovered record. ‘fieldname’ 
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is the name of the field given earlier 
on in the program. The “first” field of 
a file may not be the first name 
entered — it will be the name of the 
first numeric field in the record (if 
any), or the first string field for a 
record that contains no numeric 
fields. 


Possible responses: 

‘y’ (default) — Accept the field 

‘yr’ — Reset the display of recovered 
records — switch it off if it is on, 
switch it on if it is off 

Sg — Get next string from input 
ile 


b) “DOUBTFUL COUNT (NN) — 
WANT TO CHECK FIELD (Y/N):” 
This prompt occurs when a string 
field is encountered with a string 
length greater than max_string. 
max_string is an arbitrary value and 
is merely an attempt to trap unlikely 
string lengths, so violation of max_ 
string is not necessarily an error. ‘nn’ 
is the length of the doubtful field. 


Possible responses: 

‘y’ — Check the field 

Other (default) — Accept the field 
sight unseen 


c) “REJECT THIS FIELD 
(FIELDNAME) (N/P/Y/Q):” 

The prompt is prefixed by a display of 
the field contents. This prompt 
occurs after appropriate responses to 
(a) or (b). 


Possible responses: 

‘y’ — Reject the field and move onto 
the next 

‘q’ — Quit. Here data on file will have 
been exhausted and the user will be 
looking the control table section 

‘p’ — reposition the file pointer (e) 
Other (default) — Accept the field 


d) “START NEW RECORD (Y/N):” 
This prompt occurs if a field has been 
accepted. If the field on display is the 
first field of a new record — ie, the 
user has just skipped over some rub- 
bish fields, then the program should 
be instructed to restart forming a 
record. If the 3.5 prompt occurred 
because a field which exceeded max_ 
string was inspected and found good, 
then there is no requirement to start 
a new record. 


Possible responses: 

‘y’ (default) — Start a new record 
Other — Continue building current 
record 


e) “MOVE CURSOR TO RECORD 
START POINT AND PRESS ESC” 
This prompt occurs if the response to 
(c) was ‘p’. It is prefaced by the screen 


being cleared and the current unde- 
coded input stream is shown on the 
top of the screen. The first character 
position of the current field being 
decoded has the cursor positioned on 
it. The user may use the left, right, up 
and down arrow keys to move the 
cursor to where the decoding should 
recommence. When that position is 
established the ESC key should be 
pressed. The program will always 
expect to commence a new record 
from that point — it will not attempt 
to continue building the current 
record. 


On Display 

To use this powerful feature suc- 
cessfully, the user must be aware of 
the record field structure — all 
numeric fields occupy 8 bytes and 
occur at the beginning of a record; 
each string field is prefixed by a 1 
byte control field. If the new record 
starts on a string field then the cur- 
sor should be placed on the control 
byte. If the new record starts with a 
numeric field, then the user should 
count back nn times 8 characters 
from the control byte of the first 
record string field (where nn is the 
number of numeric fields in the 
record). 

While moving the cursor over ‘non- 
display’ characters — shown on 
screen as square blocks — the pro- 
gram displays the decimal value of 
the character code at the bottom of 
the screen. This will assist in the rec- 
ognition of the string controllers. 

It should also be noted that a 
‘genuine’ record has two ‘spare’ bytes 
at the end of it. 

If the feature is invoked by mis- 
take — ‘p’ was pressed accidentally 
— then ensure the cursor position is 
left unchanged and press ESC; the 
program will resume as though the 
current field were the first field of a 
new record. 


f) “THE FILE DATA IS NOW 
PROBABLY EXHAUSTED — DO 
YOU WANT TO QUIT (N/Y/D):” 


This message occurs when the 
number of characters read from the 
input file exceeds the control value 
contained in the database control 
record. Of course if the database is 
corrupted, it is just as probable (in 
fact it is more probable) that the con- 
trol value itself is in error. 

If the user suspects that the pro- 
gram is now beyond the data section 
of the file, then he can elect to quit at 
this point. Conversely, he may 
choose to continue examining the file 
for further records. If the message 
becomes a nuisance, it may be 
switched off. 

The program will in any event 
detect the true end of input, and ter- 
minate automatically 
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Possible response: 
‘y’ — Quit the recovery 


‘d’ — Disable the test (stop sending 
the message) 


Other (default) — Continue with 
scan and the message display 


Winding Up 
Once the user ‘quits’ recovery or the 
end of the data section of the corrupt 
database has been reached a message 
will display the number of records 
recovered, all files will then be closed 
and our recovery program will termi- 
nate. All that remains to be done is to 


load Archive and IMPORT the out- 
put file defined at the start of recov- 
ery. This ‘pseudo’ export file will 
contain all the records recovered and 
Archive will automatically recreate 
a database about them. 

Should the recovery be’ acciden- 
tally aborted, using CTRL/SPACE, 
then to re-instate the screen and file 
statuses, the user should type ‘shut- 
down’. This will close the input and 
output files and restore the standard 
screen configuration. 

Because the ‘export file’ generated 
by our recovery program is entirely 
text, it may — unlike a normal 
database file — be easily scanned (eg, 
SuperBasic ‘Copy filename to scr_’) 


producing a meaningful display, or 
edited using a suitable text editor 
(eg, Metacomco’s ED). 

Finally, you should note the pro- 
gram has to decode the (rather com- 
plicated) floating point format used 
in the Archive database. In doing 
this, it tends to work to 16 significant 
places. Very large or very small num- 
bers will not be converted (numbers 
greater than 2 * 56 or less than 2 *_ 
56). Some of the numeric output of 
the program is therefore a bit slow 
and probably with more significant 
places than Archive itself supports. 
This should cause no concern, as the 
IMPORT process will perform any 
necessary truncation. 


1 RENark RECOVER - get data from busted Archive db 
f 

2 REMark 

J REWark Version 1.3 - Chas Dillon - Sept 85 

4 CLEAR 

5 revr$ = "RECOVER 1,3" 

6 REMark 

Tt 

8 initialise 

9 IF NOT quit : do_transfer 

10 shutdown 

Ml: 

12 DEFine PROCedure initialise 

13 LOCal i,xs$ 

14 MODE O:OPEN #1,con_448x200a32x16 128 

{5 npap = 4: nink = 0: hpap = 0: hink =7 

16 PAPER npap : INK nink ; CLS 

17 PRINT rcvr$;" - atteapt recovery of corrupted d 
/b - C.D, Sept 95" 

18 LET wrong =1 

19 REPeat i_f_loop 

20 AT 3,10 : prompt “Enter input device type (a/f) 


21 IF yn$=="#" : dyc$="flp" : ELSE : dvc$="adv" 
22 AT 4.10 + prompt "Enter input device no (1 - 4) 


23 dvc$ = dvc$ & yn & "_" 

24 AT 5,15 : prompt “Enter name of input file: * 
25 IF NOT ("_" INSTR yn#) : yn$ = yn$ & " dbf" 

26 ipfil$ = dvc$ & yn$ 3 LET ipdyc$ = dvc$ 

27 LET wrong = FOP_IN(#5,ipfil$) 

28 IF NOT wrong : EXIT i_f_loop 

29 AT 6,10 : PRINT "File not found" 

30 END REPeat i_f_loop 

JL AT 6,9 : prompt "Enter output device type (m/f) 


"y dvc$="flp" : ELSE : dvc$="adv" 


ng=="f 
9: prompt “Enter output device no (1 - 6) 


y 
33 AT 7, 


34 dvc# = dvc# & yn$ & "_" 

35 AT 8,14 : prompt “Enter name of output files 
36 IF NOT ("." INSTR yn$) : yn$ = yn$ & "_exp" 
37 opfil$ = dvc$ & yn$ 

38 AT 10,0 : prompt "Do you want file output displ 
ayed (y/n): * 

39 IF NOT yn$=="n" : show_em = 1: ELSE : show_ea 

= 0 

40 check_er = | 

41 REMark AT 12,2: prompt "Do you want first fiel 
d prompts (y/n): * 

42 REMark IF NOT yn$=="n" : check_en = 1: ELSE : 

check_ea = 0 

43 DELETE opfil$ 

44 OPEN_NEW #4, opfil$ 

45 LET q$='"' : LET cq$='","’ + LET c$="," 

46 max_string = S1 : RENark Longest ‘unchecked’ st 
ring allowed 


47 fax = 100 : REMark maximum number of d/b field 
5 

48s] = 16: REMark string length - nureric accura 
cy 

49 an = 55 : RENark mantissa length in f.p. format 
50 hist_lim = 256 : REMark liait of scan-back for 
reposition 

Si hist# = "* 

52 new record = 0; quit = 0: stack.ct = 0: inc 
t = 0: buffer = 0 

53 recs = 0: hist_ptr = 0 

54 get_fldnames : IF quit : RETurn 

55 REMark ##etEHHEREE d/base control rec teEEEHEHE 
tttt 

56 FOR i = 1 TO 10 

57 xs$ = get_char$ : END FOR i : RENark throw away 
header 

58 data_len = 0 

59 FOR i = 1704 

60 data_len = data_len # 254 + CODE(get_char$) : E 
ND FOR i 

61 FORi = 1706 

62 xs$ = get_char$ : END FOR i 1 REMark throw away 
other cntrl flds 

63 PRINT "Probable data length is "sdata_lens" cha 
racters" 

64 load_data 

65 END DEFine 

66 DEFine PROCedure do transfer 

67 REPeat xfr_loop 

68 IF quit : EXIT xfr_loop 

69 IF in_ct >= data_len 

70 PRINT “The file data is now possibly exhausted" 


i 
71 proapt " - Do you want to quit (n/y/d): * 
72: IF yn$=="y" : EXIT xfr_loop : ELSE : IF yn$==" 
": data_len=9.999999E6 


73 END IF 

74 LET fct = 1: REMark field nuaber for error aes 
sages 

75 LET bad = 0 


76 REPeat field loop 

77 IF ¢ct > fldct : EXIT field loop 
78 IF quit : EXIT field loop 

79 para = 0: bad = 0 + new_record = 0 
80 IF fct = 1 AND check_em : para = 2 
81 LET ptr = rel_pos(fct) 

82 IF fct > nuafld 

83 x$(ptr) = get_str$(para) 

84 ELSE 

85 x$(ptr) = get_nua$(para) : END IF 
84 IF NOT bad 

87 fet = fet + 1 

88 ELSE 

89 IF new_record 

90 fet = 2 

91 IF ptr <= nuafld OR NOT nuafld 


92 x$(rel_pas(1)) = x$(ptr) : ELSE 

93 IF LEN(x$(ptr)) < 3 

94 x$(rel_pos(1)) = "0" : ELSE 

95 x$(rel_pos(t)) = x$(ptr)(2 TO LEN(x$(ptr))~-1) 

96 END IF : END IF 

97 ELSE : fct = 1 : END IF 

98 END IF 

99 END REPeat field loop 

100 xs$ = get_char$ & get_char$ : REMark Tag at en 

d of record 

101 IF quit : EXIT xfr_loop 

102 bld_string 

103 IF show_ea : INK 0 : PRINT xout$ : INK 7 

104 PRINT #4,xout$ : recs = recs + 1: AT #4,0,0 3 
PRINT #4,recs; 

105 END REPeat xfr_loop 

106 END DEFine 

107 DEFine PROCedure shutdown 

108 CLOSE #5 

109 CLOSE #4 

110 PRINT \"End of run - ";recs3" records copied” 
111 WINDOW 448,200,32,16 : PAPER 4: INK 0 

112 IF NOT quit : CLOSE #4 ; CLOSE 47 

113 END DEFine 

114 DEFine FuNction get_str$(chk_fst) 

{15 LOCal a$,ct 

116 IF NOT quit : ct = CODE(get_char$) : ELSE : ct 
=0 

117 bad = 0 : new_record = 0 

118 IF ct > max_string 

119 prompt ("Doubtful count "&ctk" - want to check 
field (y/n): ") 

120 IF NOT yn$=="n": bad = 1 

121 END IF 

122 get_text 

123 check_out 

124 RETurn q$ & af & qf 

125 END DEFine 

126 DEFine FuNction get_nua$(chk fst) 

127 LOCal a$,ct,expon,integ#,fract$,minus$ 

128 decode float 

129 check_out 

130 RETurn af 

131 END DEFine 

132 DEFine PROCedure get_text 

133 LOCal j 

134 ag = "" 

135 j = 0 

136 REPeat char_loop 

137 IF quit : EXIT char_loop 

138 IF NOT j ¢ ct : EXIT char_loop 

199 j=jtt 

140 a$ = a$ & get_char$ 

141 END REPeat char_loop 

142 IF fet > nuafld 

143 LET hist_ptr = LEN(a$) + 1 
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144 ELSE 

145 LET hist_ptr = 8: END IF 

146 END DEFine 

147 DEFine FuNction get_char$ 

148 AT 47,0,0 : PRINT #7,in-ct; 

149 IF buffer 

150 xs$ = hist$(buffer) 

151 buffer = buffer + 1: inct = inct +1 

152 IF buffer > LEN(hist$) : buffer = 0: hist$ = 


133 RETurn xs$ + END IF 

134 IF EOF(#5) s quit = 1: RETurn "* 
155 in-ct = in-ct +1 

156 xs$ = INKEY$(#5,-1) 

157 RETurn xs$ 

138 END DEFine 

159 DEFine PROCedure check_out 

160 field$ = f_name$(rel_pos(fct)) 
161 IF chk_fst 

162 PRINT q$; a$; $;" 
40 : PRINT 

163 prompt ("Field " & field$ & " ok (y/n/r): ") 
144 IF yn$=="n" : bad=1 : ELSE : IF yn$=="r" : sh 
ow_em = ABS(show_ea-1) 

165 END IF 

166 REPeat bad_loop 

167 IF NOT bad : EXIT bad_loop 

168 IF quit : bad = 0: newrecord = 1: EXIT bad_ 
loop 

169 IF bad = 1 AND LEN(a$) 

170 PRINT g$; a%; q$ 

171 INPUT ("Reject this field(" & field$ & ") (n/p 
/y/q)s ")yyn$3 

172 ELSE : yn$ = "y" : END IF 

173 IF yn$=="y" 

174 LET bad = 1 : PRINT 

175 ELSE 

176 IF yn$=="q" 
177 LET bad = 0: 


"ss IF LEN(a$) > 


LET new_record = 1: LET quit = 


1 

178 ELSE 

179 IF yn$=="p" 

180 re_position 

181 ELSE 

182 LET bad = 0: prompt * 
nbs * 

183 IF NOT yn$=="n" : LET new_record = 1 

184 END IF : END IF : END IF 

185 IF NOT bad : EXIT bad_loop 

186 IF fct <= nuafld 

187 decode_float 

188 ELSE 

189 REPeat scan 

190 IF NOT quit + ct = CODE(get_char$) : ELSE: ct 
=0 

191 IF NOT ct > max_string s EXIT scan 

192 END REPeat scan 

193 get_text 

194 END IF 

195 END REPeat bad_loop 

196 bad = bad + new_record 

197 END DEFine 

198 DEFine PROCedure re_position 

199 LOCal x 

200 CLS 

201 IF NOT buffer 

202 x = in_ct - hist_lia - 1 

203 IF x(0 : x = 0 

204 BEET @5\x : y = x 

205 REPeat scan_back 

206 x =x +1 IF x > in-ct + EXIT scan_back 
207 hist$ = hist$ & INKEY$(#5,-1) 

208 END REPeat scan_back 

209 END IF 

210 FOR col = 1 TO LEN{hist$) : h_off : END FOR co 


Start new record (y/ 


1 

211 PRINT \\"Move cursor to record start point and 
press ESC* 

212 IF buffer 
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213 col = buffer - hist_ptr + 1: in-ct = inet - 
hist_ptr : ELSE 

214 in_ct = in_ct - hist_lim- 11 IF inict (03 
in_ct = 0 

215 col = LEN(hist$) - hist_ptr + 1: inct = in c 
t + col : END IF 

216 h_on : buffer = 0 

217 REPeat esc_loop 

218 x = CODE(INKEY$(-1)) 

219 SELect ON x 

220 = 192 TO 199: IF col-1 : h_off : col=col-tsin 
_ctsin_ct-1: h_on 

221 = 200 TO 207 : IF col >= LEN(hist$) 

222 in_ct=in_ct-1 

223 hist$ = hist$ & get_char$ : END IF 

224 IF col ¢ LEN(hist$) 

225 h_off + col=coltl:in_ct=in_ct+! : h_on : END I 
F 

226 = 208 TO 215 : IF col-74>0sh_offscol=col-74:in 
_ct=in_ct-74:h_on 

227 = 216 TO 223 : IF col+74<LEN(hists) 

228 h_off scol=col+74:in_ct=in_ct+74:h_onzEND IF 
229 = 27: EXIT esc_loop 

230 END SELect 

231 END REPeat esc_loop 

232 buffer = col 

233 had = 1: new_record = 1: fct = 1: REMark fo 
rce restart of record 

234 field$ = f_name$(rel_pos(fct)) 

235 AT lingax-2,0 

236 PAPER 2: INK 7: CLS 2: CLS 3 

237 END DEFine 

238 DEFine PROCedure h_on 

239 LOCa) x 

240 PAPER 4: INK 0 

241 x = CODE(hist$(col)) 

242 AT linmax,10 

243 IF NOT (x>31 AND x¢128) 


- PRINT xs" " : ELSE + PRINT * ": END I 


245 AT (col-1) DIV 74, (col-1) MOD 74 : PRINT hist 
(col); 

246 END DEFine 

247 DEFine PROCedure h_off 

248 PAPER 2 + INK 7 

249 AT (col-1) DIV 74, (col-1) HOD 74 : PRINT hist 
$(col); 

250 END DEFine 

251 DEFine PROCedure decode float 

252 LET ct = 8 

253 get_text 

254 get_bit_str 

255 IF bit(!) : LET minus$="-" : ELSE : LET ainus$ 
256 expon = 0 

257 FOR j = 2 109 

258 expon = expon + (2*(9-j) # bit(j)) : END FOR j 
259 expon = expon - 128 

260 IF (expon - 1) >= an 

261 do_big_nuab 

262 ELSE 

263 IF expon > 0 

264 stack_nos 1,expon,an : ELSE 

265 stack_nos 1,expontl,an 

266 END IF 

267 fract$ = added_stack$ 

268 IF expon ¢ 1 

269 integ$ = "" : ELSE 

270 set_stack expon,int_tab$ 

271 IF expon-1 + stack_nos -1,expon-1,1 

272 integ$ = added _stack$ 

273 END IF 

274 END IF 

275 IF LEN(fract$) 

27 IF LEN(integ$) 

277 af = minus$ & shrunk_str$(integ$ & "." & fract 
$) 

278 ELSE 

279 af = minus$ & "O" & shrunk_str$("." & fract$) 


280 END IF 

281 ELSE 

282 IF LEN(integ$) 

283 af = minus$ & shrunk _str$(integ$ & " ") 
284 ELSE 

285 af = "0" 

286 END IF 

287 END IF 

288 END DEFine 

289 DEFine FuNction shrunk str$ (texts) 
290 REPeat front 

291 IF text$(i) = "0" 

292 IF text$ = "0" : text# = "" : EXIT front 
293 text$ = text$(2 TO) : ELSE +: EXIT front : END 
IF 

294 END REPeat front 

295 IF LEN(text$) 

296 REPeat back 

297 IF text${LEN(texts$)) = "0" 

298 text$ = text$(1 TO LEN(text$)-1) 

299 ELSE : EXIT back + END IF 

300 END REPeat back 

301 END IF 

302 RETurn text$ 

303 END DEFine 

304 DEFine FuNction added stack$ 

305 LOCal carry,numb,ans$ 

306 IF NOT stack ct : RETurn ‘" 

307 LET carry = 0 : ans$ = FILL$("0",s1) 
308 FOR i = sl TO 1 STEP -! 

309 nuab = carry 

310 FOR j = 1 TO stack ct 

311 nuab = nuab + stack$(j,i) + END FOR j 


312 ans$(i) = nuab NOD 10 
313 carry = nub DIV 10 : END FOR i 


314 stack ct = 0 

315 RETurn ans$ 

316 END DEFine 

317 DEFine PROCedure set_stack (pointer ,array$) 
318 stack_ct = stack ct + 1 

U9 stack$(stack ct) = array$(pointer) 

320 END DEFine 

321 DEFine PROCedure stack nos (adder begin, finish 
) 

322 LOCal i,j,start 

323 IF begin ¢ 1 

324 j = ABS(begin)+1 : start = 1 

325 ELSE 

326 j = 0: start = begin : END IF 

327 IF adder >0 

328 i = start 

329 REPeat frac_loop 

330 IF i > high + EXIT frac_loop 

331 j= j+i4: IF j > an: EXIT frac_loap 
332 IF mant(i) : set_stack j, frac_tab$ 
333i = i + adder 

334 END REPeat frac_loop 

335 ELSE 

336 FOR i 2 start TO finish STEP adder 

337 j= jot 

338 IF mant(i) : set_stack j, int_tabs 

339 END FOR i 

340 END IF 

341 END DEFine 

342 DEFine PROCedure do_big_nuab 

343 PRINT "Problems - no big nuaber routine" 
344 integ§ = "" : fract$ = "" : bad = 1 

345 END DEFine 

346 DEFine PROCedure get_bit_str 

347 LOCal i,j,k 

348 ahigh = 0 

349 FOR k = 1709 

350 j = (k-1) MOD 8: i = ((k-1) DIV 8) + 1 
351 IF CODE(a$(i)) && 2*(7-j) : bittk) = 1: ELSE 
+ bittk) = 0 

352 EMD FOR k 

353 FOR k = 1 TO an 

354 j =k MOD 8s i = (k DIV 8) +2 


v ARCHIVE ON THE MEND ¥ 


355 IF CODE(as(id) && 2*(7-j) 

356 LET ahigh = k : mant(k) = 1: ELSE : mant(k) = 
0 

357 END IF 

358 END FOR k 

359 END DEFine 

360 DEFine PROCedure get_fldnanes 

361 LOCal lin,col ,strct 

362 DIM f_type(fmax),rel_pos(fmax) ,f_names(fmax 13 
) ,x$(#max 255) 

363 CLS 

364 fldct=0 : fct = 0: numfld = 0: file_ip = 0 
345 PRINT rcevr$;" - Database Field names - Enter i 
n CORRECT order" 

346 LET wrong =1 

367 REPeat s_f loop 

368 AT 10,10:proapt "Fieldnames from the keyboard 
or a file (k/f): * 

369 IF yn$=="F* 

370 AT 12,4 : prompt “Enter device/file name conta 
ining field names: ° 

371 IF NOT (*_" INSTR yn$) : yn$ = ipdvc$ & yn$ 
372 wrong = FOP_IN(#7,yn$) : LET fileip = 1 

373 ELSE 

374 LET file_ip = 0 : LET wrong = 0: END IF 

375 IF NOT wrong : EXIT s_¢_loop 

376 AT 14,10 : PRINT "File not found" 

377 END REPeat s_f_loop 

378 AT 3,0 : CLS 2 

379 REPeat nawe_loop 

380 IF file_ip 

381 IF EOF(#7) + EXIT name_loop 

382 INPUT #7,yn$ 

383 IF yn$(1 TO 5)=2"proc * : NEXT naae_loop 

384 IF yn$(1 10 7)=="create “ : NEXT nase loop 
385 IF yn${1 TO 9)=="endcreate" : EXIT name_loop 
386 IF yn$(LEN(yn$) )=CHRS (13) 

387 yn$ = yn$(1 TO LEN(yn$)-1) + END IF 

388 ELSE 


393 IF LEN(yn$) > 13 

394 AT 19,10 : PRINT yn$;" - Name too long" : NEXT 
naae_loop 

395 END IF 

396 IF fldct = faax 

397 fldct = 0 : PRINT "Too many fields - amend faa 
x control" : 

398 EXIT nawe_loop : END IF 

399 fldet = fldet + 1 

400 IF yn$(LEN(yn$)) = "$* 

401 t_name$(fldct)=yn$ 

402 f_typelfldct) = 1 

403 ELSE 

404 nuafld = nuafld +1 

405 rel_pos(nuafld) = fldct 

406 f_name$(fldct)=yn$ 

407 t_typelfldct) = 0 


408 END “IF 

409 LET lin = (fldct-1) DIV 5: LET col = (fldct-1 
) MOD 5 

410 AT lint2,col#!5 : PRINT yn$ 

411 IF fldct-1 + PRINT 6,c$;q$;yn$iq$; s ELSE : P 


RINT 26, q5; yn$;q$; 

412 END REPeat naae_loop 

413 PRINT #6 

414 1F file_ip : CLOSE #7 

415 REPeat force_ans 

416 AT 18,10 : CLS 3: prompt “Are these correct ( 

y/nb: * 

417 IF yn$=="y" OR yn$=="n" + EXIT force_ans 

418 END REPeat force_ans 

419 IF NOT fldct + yn$ = "n* 

420 IF yn$=="n" : quit = 1: RETurn 

421 AT 0,0 + PRINT rcvr$;" - Translation Diagnosti 

cs - contents in order of names" 

422 AT 1,0: PRINT “Characters reads": AT 1,51 : PR 
INT "Records copieds" 

423 OPEN #4,scr_36x10a444x26 : PAPER #4,npap : INK 
#4 ,nink 


428 npap = 2: nink = 7: hpap = 0: hink = 7 
429 PAPER npap : INK nink + CLS 

430 tect = 0: stret = 0 

431 REPeat posn_loop 

432 fet = fet + 1 

433 IF fet > fldct : EXIT posn_loop 

434 IF #_type(fct) 

435 stret = stret + 1 

436 rel_pos(nuafidtstrct) = fct 

437 END IF 

438 END REPeat posn_loop 

439 END DEFine 

440 DEFine PROCedure bld_string 

441 LET fet = 0 

442 LET xout$ = ** 

443 REPeat str_loop 

444 LET fet = fect + 1 

445 IF fct > fldct : EXIT str_loop 

446 IF fct = 1 

447 xout$ = x$(fct) 

448 ELSE 

449 xout$ = xout$ & "," & x$(fct) 

450 END IF 

451 END REPeat str_loop 

452 END DEFine 

453 DEFine PROCedure proapt (text$) 

434 REPeat drain : LET yn$=INKEY$ : IF NOT LEN(yn$ 
) : EXIT drain 

435 END REPeat drain 

456 PRINT text$; : PAPER hpap : INK hink : INPUT y 
ng 

457 PAPER npap : INK nink 

458 END DEFine 

459 DEFine PROCedure load data 

460 DIM int_tab${an,sl) ,frac_tab$(an,sl) ,stack$(an 
Sl) ,bit(9) ,mant (an) 

461 RESTORE 

462 READ int_count 

463 FOR i = 1 TO int_count 


389 AT 18,10 : CLE 3: prompt “Enter the name of t | 424 OPEN 47,scr_34x10a134x26 : PAPER #7,npap : INK | 464 READ int_tab$(i) + END FOR i 

he field: " 47 ,nink 465 READ frac_count 

390 END IF 425 os] = 10 # (Lint3) 466 FOR i = 1 TO frac_count 

391 AT 19,0: CLS 3 426 linmax = 19 - (lin+#3) 467 READ frac_tab${i) : END FOR i 

392 IF NOT LENtyn$) : EXIT name_loop 427 WINDOW 448,200-o51 ,32, 14+os1 468 END DEFine 

469 DATA 55 503 DATA "0000008589934592" 537 DATA “0004882812500000" O17 DATA "0140737488355328" So! DATA “0090000298023223" 
470 DATA *0000000000000001" 504 DATA "0000017179869184" 538 DATA "0002441406250000" 518 DATA "0281474976710654" 552 DATA *0000000149011612" 
471 DATA "0000000000000002" 505 DATA “0000034359738348" 539 DATA "0001220703125000" 519 DATA "0562949953421312" 553 DATA "0000000074505804" 
472 DATA "0000000000000004* 506 DATA "0000068719476736" 540 DATA "0000610351562500" 520 DATA "1125899906842624" 554 DATA *0000000037252903" 
473 DATA "0000000000000008" 507 DATA "0000137438953472" S41 DATA "0000305175781 250" 521 DATA “2251799813685248" 555 DATA "0000000018626451" 
474 DATA *0000000000000014" 508 DATA "0000274877906944" 542 DATA "0000152587890625" 522 DATA "4503599627370496" 556 DATA *0000000009313226" 
473 DATA *0000000000000032" 509 DATA "000054975581 3998" 943 DATA “0000076293945313" 523 DATA *9007199254740992" 557 DATA “0000000004656613* 
476 DATA "0000000000000064" 510 DATA *0001099511627776" 944 DATA "0000038146972654° 524 DATA *9999999999999999" 558 DATA "0000000002328306* 
477 DATA *0000000000000128" S11 DATA "0002199023255552" 545 DATA "0000019073486328" 925 REMark 559 DATA "0000000001 164153" 
478 DATA "0000000000000254" 512 DATA "0004398046511104" 546 DATA "0000009536743164" 526 DATA 55 540 DATA *0000000000582077" 
479 DATA “0000000000000512" 513 DATA "0008796093022208" 547 DATA "0000004768371582" 527 DATA “5000000000000000" 541 DATA "0000000000291038" 
480 DATA "0000000000001024" 514 DATA "0017592186044416" 548 DATA *0000002384185791" 528 DATA "2500000000000000" 542 DATA *0000000000145519" 
481 DATA "0000000000002048" 515 DATA "0035184372088832" 549 DATA "0000001192092891" 529 DATA "1250000000000000" 543 DATA “0000000000072740" 
482 DATA *0000000000004096" 516 DATA "0070368744177664" 550 DATA "0000000596046446" 330 DATA "0625000000000000° 544 DATA *0000000000036380" 
483 DATA *0000000000008192" S17 DATA "0140737488355328" 591 DATA *0000000298023223" 53! DATA "0312500000000000" 545 DATA *0000000000018190" 
484 DATA "0000000000016384" 518 DATA "0281474976710656" 552 DATA *0000000149011612" 532 DATA "0156250000000000" 546 DATA *0000000000009095" 
485 DATA "0000000000032748" S19 DATA *0562949953421312" 593 DATA *0000000074505804" 533 DATA "0078125000000000* 547 DATA "0000000000004547" 
486 DATA *0000000000065534" 520 DATA "1125899906842624" 554 DATA *0000000037252903" 534 DATA "0039062500000000° 568 DATA *0000000000002274" 
487 DATA "0000000000131072" O21 DATA *2251799813685248" 399 DATA "0000000018626451" 535 DATA “0019531250000000" 54? DATA "0000000000001137" 
488 DATA *0000000000262144" 922 DATA "4503599627370496" 556 DATA "0000000009313226" 534 DATA "0009765425000000" 570 DATA "0000000000000568" 
489 DATA *0000000000524288" 523 DATA *9007199254740992" 997 DATA “0000000004454413" 537 DATA “0004882812500000" 571 DATA "0000000000000284" 
490 DATA "0000000001048574" 524 DATA "9999999999999999" 504 DATA "0000017179869184" 538 DATA "0002441404250000* 572 DATA "0000000000000142" 
491 DATA "0000000002097152" 525 REMark 505 DATA "0000034359738348" 539 DATA "0001220703125000" 573 DATA *0000000000000071" 
492 DATA *0000000004194304" 526 DATA 55 506 DATA "0000068719476734" 540 DATA "0000610351562500" 574 DATA "0000000000000036" 
493 DATA “0000000008388408" 527 DATA "5000000000000000" 507 DATA "0000137438953472" 541 DATA "0000305175781250" 575 DATA "0000000000000018" 
494 DATA *0000000016777216" 528 DATA "2500000000000000" 508 DATA "0000274877906944" 542 DATA "0000152587890625" 576 DATA "0000000000000009" 
495 DATA "0000000033554432" 529 DATA "1250000000000000" 509 DATA "000054975581 3988" 543 DATA "0000076293945313" 577 DATA “0000000000000004" 
496 DATA "0000000067108864" 530 DATA "0625000000000000" 510 DATA "0001099511627774" 544 DATA "0000038146972656" 578 DATA "0000000000000002" 
497 DATA “0000000134217728" 531 DATA “0312500000000000" S11 DATA- "0002199023255552" S45 DATA "0000019073486328" 579 DATA "0000000000000001" 
498 DATA "0000000268435454" 532 DATA *0156250000000000" 512 DATA "0004398046511104" 546 DATA “0000009536743164* 580 DATA "0000000000000000" 
499 DATA "0000000536870912" 933 DATA "0078125000000000" O13 DATA "0008796093022208" 547 DATA "0000004768371582" 581 DATA *0000000000000000" 
900 DATA "0000001073741824" 534 DATA "0039062500000000" 514 DATA "0017592186044416" 548 DATA "0000002384185791" 

501 DATA "0000002147483448" 535 DATA "0019531250000000" 515 DATA "0035184372088832" 549 DATA "0000001192092891" 

502 DATA "0000004294967296" 336 DATA "0009765625000000" 516 DATA "0070368744177664" 550 DATA "0000000596046446" 
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Free WITH ALL PRINTERS: QL USERS PRINTERS GUIDE - 9 
yoo Ve supply a free booklet with all printers which explains how to obtain all the features available on your printer. 


@ DOT MATRIX INC VAT 
SHINWA CP A80 £189-75 
EPSON FX80 F/T+ £361-10 
EPSON FX100 F/T+ £488-75 


@ DOT MATRIX PLUS NEAR LETTER QUALITY 

EPSON LX80 GOOD OFFER $190-00 218-50 
CANON 1080A BETTER OFFER $225-00 £258.75 
JUKI 5510 (colour option) £249-00 £286-35 
CANON 41156 17” CARRIAGE £335-00 £385-25 


@ DAISY WHEEL 
QUENDATA 1420 £225-00 £258-75 
EPSON DX100 SPECIAL OFFER £356-00 £409-40 


m@ COLOUR PRINTERS 
EPSON JX-80 SPECIAL OFFER £450-00 £517-50 


@ PRINTER INTERFACES 
MIRACLE SYSTEMS £26-05 £29.95 


= COMPUTERS 
SINCLAIR QL ONLY £173-05 £4199-00 


y 


ORDERED TODAY - 
DELIVERED TOMORROW 


i 


MAIL ORDER 
NLY 


@ DISC DRIVES EX VAT 
Prices include power supply and interface. 
MICRO PERIPHERALS 

3'/,” SINGLE DRIVE SYSTEM (.75 MBYTE) £241-00 £277.15 
3'%" DUAL DRIVE SYSTEM (1.5 MBYTE) £365-00 419-75 
PCML DISK INTERFACE + 256K RAM & TOOLKIT 
INTERFACE $240-00 £276-00 
3%,” DUAL DRIVES $169-00 £194-95 


INC VAT 


@ TYPEWRITER PRINTER COMBINED — 
JUKI 2200 £245-00 £281-75 


@ MONITORS 
PHILIPS 7502 GREEN £75-00 £86-25 
MICROVITEC CUB 1451/653 £220-00 £253-00 


= MODEMS 
TANDATA (complete system including 
FREE TELECOM GOLD/PRESTEL) £173-00 £198-95 


= SOFTWARE RING FOR BEST PRICES 


THE WORLDS BEST PRICES ON QL/MONITOR/PRINTER PACKS 
COMPLETE PACK Package includes: SINCLAIR QL, MICROVITEC CUB563, PRINTER & ALL LEADS AND INTERFACES EDUCATIONAL ‘ GOVERNMENT 
SPECIAL OFFER WITH EPSON LX80 F/T £619-00 $711-85  WITHCANON 1080 $652-00 $749.80 OVERSEAS ORDERS WELCOME 
WITH CANON 1156 $842-00 $968-30 OTHER PRINTERS ON REQUEST 


E NOW ONLY 3 MINUTES FROM JUNCTION 23 M62 
PRI NTERLAN D (MANCHESTER 25 minutes/LEEDS 20 minutes) NB. FROM EAST USE JUNCTION 24 3 
156 LONGWOOD Gate, LoNGwoop ~—- Tel HUDDERSFIELD (0484) 646048/9 


Monitor / Debugger 


QL Toolkit Version II 


better performance. 


QMON brought a new dimension to machine code debuggers. QMON II is another 
jump ahead of the rest. 
breakpoints, back trace, pull down windows, plus all the standard facilities? 


Who else offers an assembling line editor, memory value 


This is a rewritten version of the original QL Toolkit: more than 100 facilities, 
ROM version from CARE Electronics, configurable version 
ready soon. A must for serious QL users. 


UPGRADE to Sinclair standard disc format. UPGRADE to QJUMP standard disc 


Floppy Disc Driver 
performance. UPGRADE to complete compatibility with other QL disc systems. 


Eprom Programmer 


Quyax 
Qo 
Qsex 


MON 
TKI 
FLP 
EPI 
For information on these products, send a stamped, self-addressed envelope to: 
JUMp 
Dept UL QJUMP Ltd 24 King Street Rampton CAMBS CB4 4QD 


THE upgrade for the Micro Peripherals QL floppy disc interface. 


SAE for comprehensive test report. 


This EPROM programmer for the QL offers an advanced specification which makes 
it exceptionally good value. It features multi-voltage testing and verification, 
as well as standard, interactive and accelerated programming algorithms. 


offer lO se 
to the microdrive 


Speeding up your data access 
with Viglen disc drives means 
instant reliable access every time 


Specially designed to fit neatly into the case of 
the Sinclair QL, the Q-Disc Interface Board and 
companion disc drives are colour-matched to 
compliment your QL computer. 


P a Dri n Drive with Q 
51/4 inch Drives een BreLinttiece 
800K Single drive £121.00 £216.00 


1.6M Dual drive £226.00 £321.00 


31 inch Drives 


800K Single drive £99.00 £194.00 

PRICES 1.6M Dualdrive £198.00 £293.00 

INCLU DE The above drives are compatible and ready to plug in and 
VAT use with all currently available QL disc interfaces. 


When bought with the disc interface they are ready to plug 
in and use — NO EXTRAS. 


Prices correct at time of going to press. Offers subject fo availability. 
Even lower prices with other QL interfaces 


Visit our showrooms 
Open Monday = Friday 9.30 - 6.00 Saturday 9.30 - 4.00 


Unit 7, Tuumpers Way eee 
Hanwell W7 2QA Ss SB 


F D\, BOSTON 
Carriage XZ ees: 
Please add £12.00 for carriage. Orders are 
usually despatched to you within twenty- 
four hours of receipt. 


2 
© 
¥, 


g % 
Ma Le, 
ay v 
x 


——— 


Viglen are also major suppliers fo educational 


and government establishments and welcome anal 
further enquiries and orders x 
| 
Post to: VIGLEN COMPUTER SUPPLIES. QLU1/86 
Unit 7, Trumpers Way, Hanwell W7 2QA. 
Credit card holders may order by telephone on 01-843 9903 


| enclose Cheque/P.O. for & incl. carriage. 
9 N f ] Cheques payable to Viglen Computer Supplies. 
Interface : ~ | prome 
Board j Sooo 


J 


| prefer to pay by ACCESS/BARCLAYCARD 
I (delete one). Credit Cards valid only 
if signed by card holder 


] Card No: Address must be the 
same as card holder 


| Signature fe 


-— i L 
eee ne 


MICROVITEC MONITOR 


Specifically designed for the QL 

Offers excellent 85 column text performance 
and outstanding graphics capabilities 
Incorporates high contrast medium 
resolution cathode ray tube 

Includes tilt and swivel mechanism 


INSIDER 
INTERFACE 


Fits snugly into the « 


—. . a : connecting to the mi 
For immediate despatch of goods you can order . Incorporates complet 


now by phoning us on Leicester (0533) 374917 Toolkit utility and inc 
quoting your Access card number. ~ software utility disk 
Full microdrive emul. 
Or fill in and post the coupon - no stamp Fast access times e. 
required - and we will ene your goods _ a in under 10 seconds 


within 14 days | Full two year guaran 


ORDER FORM PRICES INCLUDE VAT, POST AND PACKING 
POST TO: Silicon Express Lid., FREEPOST, Rothley, Leicester LE7 7QZ 

Please allow 14 days for delivery of postal orders,telephone orders, immediate despatch 

____ Insider Disk Interface Board @ £113.85 

____ Single 80 track double sided 3 1/2" drive system INCLUDING Insider Board @ £199.00 


___ Dual 80 track double sided 3 1/2" drive system INCLUDING Insider Board @ £270.00 4 
| See. age COMPLETE 


____ Single 80 track double sided 5 1/4" drive system INCLUDING Insider Board @ £219.00 


____ Dual 80 track double sided 5 1/4" drive system INCLUDING Insider Board @ £299.00 D | S K S YST = M W | T H 
___ Microvitec 1451 DQ3T colour monitor @ £299.00 l N T E R FA Cc E 


____ Centronics printer interface @ £29.95 

____ NEW 512K QL with 1 Year Warranty @ £325.00 £1 9 9 
_____ 512K Internal Memory Upgrade @ £150.00 * 

____ 512K Insider Memory Board @ £199.00 

| enclose cheque/postal order for £ made payable to Silicon Express Limited 

Name & Address 


“For internal memory upgrade, please send your QL RECORDED DELIVERY us ae with 
our remittance or Access details for £150.00 to Silicon Express Limited, Silicon House, 
owke Street, Rothley, Leicester. LE7 7PJ 


CENTRONICS 
PRINTER INTERFACE 


* Connects QL to any centronics 
compatible printer 

* Plugs into SER1 or SER2 port 
and directly into printer 

* Fully self-contained with 3 metre 

cable 


CENTRONICS 
PRINTER INTERFACE 
£29.95 


sill, 


512K INTERNAL 
MEMORY UPGRADE 
£150 


DISK 
CARD 


ase of the QL, 
in expansion port 
> ROM - based 


512K INTERNAL 
MEMORY UPGRADE 


* Expands the QL'’s memory from 


peli) ie 128K to 512K 

: sit * Leaves the expansion slot free 
non oT : for other boards 

jo beotse au * Internally upgraded at our service 
56 centre - see address below 


(NOT FREEPOST) 
* 7 Day return service 
* Contact our Sales Desk for further 
details | 


512K Insider Memory Board also available 


* Plugs into the main expansion port 
* Operates at full speed - no wait states 
£199.00 


DISK DRIVES 


* 3 1/2" single or dual 80 track 
double sided 

* 5 1/4" single or dual 80 track 

double sided 


| DEALER ENQUIRIES WELCOME 
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A line Computer Systems 


Address: 
1 Church Lane, Willoughby, 
Waterleys, Leics. 
Telephone: 
0533 778724 
Product: 
Super Spooler 
Type: 
Printer Interface & buffer 
Description: 
Internally fitted Epson Serial 
Interface with up to 64K buffered 
memory. 
Connections: 
QL-Serial Port 
Baud Rates: 
Variable (DIP switches) 
Price: 
£61.00 (2K buffer), £173.00 (64K 
buffer) 


Care Electronics 


Address: 
Unit 14, Peerglow Industrial Est, 
Old Approach, Tolpits Lane, 
Watford, Herts 

Telephone: 
0923 777155 

Product: 
Serial to Parallel Convertor 


Type: 
Switchable Printer Interface 
Description: 
Simple Plug-in-and-go junction 
box type interface incorporating 
switch to vary Baud rates. 
Baud Rates: 
75, 300, 600, 1200,2400,4800, 
9600 


Connections: 
QL-Serial port, Printer- 
Centronics 


Address: 
King Herny’s Drive, New 
Addington, Croydon, Surrey 
Telephone: 
0689 46116 
Product: 
Series 700 Monitor 


ype: 
14” Medium Resolution Colour 
Monitor 
Description: 
Heavy duty colour monitor. 
Dot Width: 
0.42mm 
Resolution: 
650 x 440 
Bandwidth: 
18MHz 
Signal: 
RGB 
Price: 
£230.00 


CST 


Address: 

30 Regent St, CAMBS 
Telephone: 

0438 352150 
Product: 


Q-PI 
Ty, 


pe: 

Printer Interface 

Description: 
Adds a Centronics type parallel 
port to the based printer driver 
with facility to memory as a 
buffer. 

Connections: 
QL-Main I/O port (64way), 
Printer-Centronics 

Price: 

£50.00 


Product: 
Q-488 

Type: 

IEEE-488 Interface 

Description: 
Industry standard interface to 
communicate numerous scientific 
and laboratory on-board driver 
capable of handling connected 
devices. 

Connection: 
QL-Main I/O port 

Price: 
£227.00 


Address: 
5 King’s Ride Park, Ascot, Berks 
SL5 8BP 
Telephone: 
0990 28921 
Product: 
Vision QL monitor 


Type: 
RGB monitor (12” 
Description: 
Sinclair ‘badged’ colour monitor 
with controls at the front. 
Price: 
Contact dealers. 


Miracle Systems 


Address: 
Avondale Workshops, Woodland 
Way, Kingswood, Bristol 
Telephone: 
0272 603871 
Product: 
Centronics Interface 
Type: 
Serial to parallel 
Description: 
Plug-in-and-go junction box type 
printer interface 
Baud Rate: 
9600 
Connection: 
QL-Serial port, Printer- 
Centronics 


Price: 
£29.95 


Opus Supplies 


Address: 
158 Camberwell Rd, London SE5 
Telephone: 
01 701 8668 
Product: 
JVC Colour Monitor (Electrohome 
Hi-res Display) 


‘ype: 
14” Medium Resolution Colour 
Monitor 

Dot Width: 
0.41mm 
Resolution: 
580 x 470 
Bandwidth: 
10MHz 
Signal: 
RGB 


Silicon Express 


Address: 
Silicon House, Fowke Street, 
Rothley, Leicester LE7 7PJ. 
Telephone: 
0533 374917 
Product: 
Microvitec CUB 6538 


DEE. aay 
14” Medium Resolution Colour 
Monitor 

Dot Width: 
0.43mm 
Resolution: 
653 x 585 
Bandwidth: 
18MHz 
Signal: 
RGB 
Product: 
Centronics printer interface 
Type: 
Serial to parallel 
Description: 
Plugs into SER1 or SER2. 
Comes with 3m cable. 
Price: 
£29.95 


Transform Ltd 


Address: 
24 West Oak, Beckenham, Kent 
BR3 2EZ 
Telephone: 
01 658 6350 
Product: 
Centronics interface 
Price: 
£29.95 


Product: 

Philips 7502 Monitor 
Type: 

Monochrome green screen 
Price: 

£86.25 
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ILLUSTRATION BY ROY INGRAM 


Colin Opie presents a two part 


in depth exposé of disk and 


microdrive storage. 


It has happened to us all at some 
time. Everything is going smoothly, 
we've just reached the last line of a 
10,000 word masterpiece, carefully 
saving and overwriting every ten 
minutes or so and then... Tragedy! 
‘Bad or changed Medium’ raises its 
ugly head. At this point it is im- 
material whether we own a shiny 
new disk drive until, or are still per- 
servering with the Microdrives, the 
cold sweat still appears as panic sets 
in. ‘Where is our program?’ we ask, 
‘Surely there must be a way of get- 
ting it back? Oh please, please, there 
must be!’ Next comes the realisation 
of the full horror of it all— we’ve got to 
start all over again (groan). 


“me | 
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If this scenario is alien to you at the 
moment, then watch out, you’re prob- 
ably well overdue for some similar 
calamity to occur. However, there is 
an answer other than sending your 
QL to instant oblivion with a single 
blow — sector editing and rebuilding. 
And that’s where this two part series 
comes in. It’s been designed to lead 
you into the intricacies of file storage 
formats on both microdrives and 
disks. 

In the first part we look at the 
theory of how microdrives are for- 
matted, and how files are saved on 
them. Three machine code exten- 
sions to SuperBasic are supplied that 
will help you to experiment with, 
patch or save microdrive sectors. Two 
of them enable reading and writing 
microdrive sectors directly to and 
from a single dimension string array. 
These routines are adapted from a 
much larger library of utilities and 


programs for supporting Microdrive 
and disk media operations. The full 
suite is marketed (as a complete 
package) by Digital Precision, and 
the two adapted routines are 
included here (with permission). 

The third is a simple display 
routine that will print a given 
number in hexadecimal format. This 
was originally developed for the book 
QL Assembly Language Programm- 
ing. Some of the technical parts of the 
text are taken from QL Interfacing 
and Hardware; both books being 
published by McGraw-Hill (again 
extracts are included with permis- 
sion). Finally, we look at a few 
examples and utility programs 
related to the recovery of deleted files 
and files on a corrupted microdrive 
cartridge. 


Microdrive Format 


The microdrive cartridge storage for- 
mat is extremely uniform and com- 
pact. Although the optimum can 
never be achieved, due to tape splic- 
ing and so on, a tape ‘FORMAT? oper- 
ation will create a numbered sequ- 
ence of good sectors up to a maximum 
of 256 (see Figure 1). Looking at 


Sector Block Data Sector Block Data 


header + header + area header + header + area 
(14 bytes) (2 bytes) (512 bytes)}(14 bytes) (2 bytes) (512 bytes) 


Sector n Sector (n+1) 


things a little simplistically, each 
sector can be thought of as contain- 
ing three blocks of information: 


1. A Sector header 
The sector header for each sector is 
recorded once (at FORMAT time), 
and once only. It is fourteen bytes 
long and contains the following data: 
$00 Code $FF (Identifier byte) 
$01 Sector number (0-255) 
$02 Ten byte medium title 
(specified at FORMAT 
time) 
$0C 16-bit random number 
This header is used by QDOS in order 
to determine if the medium in the 
drive has been changed. As the data 
exists at the head of every good sec- 
tor, the check can be very quick. 


AND DRIVES 


2. A block header 
The block header for a sector is writ- 
ten each time a data write operation 
is performed on that sector. It is two 
bytes long and contains the ‘File 
number’ (0-255) and the ‘Block 
number’ (0-255) associated with the 
data stored in the sector. As an aside, 
the QDOS routines that enable us to 
read and write sector data also man- 
ipulate the block header data. Data 
and block headers are inseparable in 
this respect. 
3. A data area 
Each sector created on a tape car- 
tridge is capable of storing 512 bytes 
of data. When reading a sector of data 
the appropriate QDOS routine will 
also return the file and block number 
associated with that sector. Con- 
versely, when writing a sector of data 
the appropriate QDOS routine needs 
to know what file and block number 
are to be associated with that data. 
There are three main ways in 
which the data in a sector is 
organised, depending on whether the 
sector in question is the ‘mapping’ 
sector, a sector containing directory 
data, or just a simple data sector. 
Files are also stored with their own 
header data that is related to the cor- 
responding directory entry. These 
structures are vital to our ‘inside’ 
handling of the tapes, so we will look 
at these next. 


Any file that is to be stored on a tape 
must be stored in physical sectors. 
So, the system splits the file into 512 
byte blocks and writes each block, or 
part block in the case of the last one, 
into a free sector. Each file saved is 
given a number that is used as an 
index into the directory. Initially, 
saved files are allocated numbers 
from unity upwards (ie, 1, 2,3,...). If 
three sectors are required to be saved 
(for example, file number six), at the 
end of the operation there would be 
three sectors with block headers of 
<6,0> <6,1> and <6,2>. 

The directory of a cartridge is 
handled by QDOS in the same way as 
a user file. The only difference is 
that, normally, only QDOS has 
access to this file. 

All files are stored with a 64 byte 
header that contains essential perti- 
nent data about that file: 


$00 32-bit integer holding 
file length (bytes). The 
file length includes the 
header. 

$04 File access key byte. 

$05 File type byte. 

$06 File information 
(8 bytes). 

$0E 16-bit integer holding 
filename length. 

$10 File name (ASCII). 
Max 36 bytes. 

$34— (Reserved). 


The file access byte is normally set to 
zero. The file type code is zero for data 
files or SuperBasic programs, or 
unity for executable programs. In 
this latter case the first four bytes of 
the file information field contain the 
default size of the data space for that 
program. Note that the existence of 
this header means that only 440 
bytes of the actual file can be stored 
in the first sector block (block 0). Any - 
subsequent blocks can contain a full 
512 bytes. 


The Mapping Sector 


Sector zero is special, and be called 
23 BS) 


505 506 7 Yj 


fs ae] =F = 
‘Special 
2 BytesR2 hap 
num 
BN = Block number 


the ‘mapping’ sector. It maps logical 
file storage onto physical sectors. 
Sector zero is split up into 256 two 
byte entries. The first two bytes 
contain the file and block number of 
sector zero (see Figure 2). The next 
two bytes contain the file and block 
number of sector 1, and so on. 
Because there can never be 256 good 
sectors, the last two bytes of sector 
zero are used by the system for other 
purposes. In practice we need not 
concern ourselves with these last few 
bytes. We already know that user 
files are saved with numbers rang- 


LISTING 4 : : 


Nicrodrive Sector Handlers 
NcGraw-Hill(UK) 68000 Asseabler v2.0 
0001 #h Micradrive Sector Handlers 


or. These are returned on a 


0013 ; sector read, and used for the 


0002 4 sector header on writes, 
0003 5 a) SuperBASIC extensions tor | 00144 
ead/write Nicradrive 

0015  b) Also included in this pack 
0004 5 sectors: to speed up printing of hexadeciaal 
0005 3 0016 5 numbers: 
0006; GET_NSEC dZ,st,buff - rea | 0174 
@ sector ‘s’, drive ‘d‘, into buffer 

0018; c# = WHEXS(njvalue) - retu 
0007 5 PUT_MSEC di,st,buff - wri rn ‘n’ digit hex string for ‘value’ 
te sector ‘s’, drive ‘d’, froe buffe 
Gi O19 ; 
0008 5 

0020-5 Note that this is not needed 
0007 4 In both cases, ‘st’ and ‘dx’ for Nicrodrive operations. It is 
are integers and ‘butf$’ is a 

0021 5 siaply an extension to help i 
0010 5 514 byte array, ‘dt' may be n displaying results. 
1 or 2. ‘st’ aay range fron 0 

0022 5 


OOIL y to 255, Last 2 bytes of array 
hold the data for the ‘block’ 


0012 5 and ‘file’ auabers for a sect 


0023 ) Copyright (c) 1985 Vida Rebus 


= $110 


0026 th Constants O04 bp init 


0027 5 


00000118 = 
0028 j General 0043 cagtlin = $118 
00000124 = 
1 0044 ad_read = $124 
FFFFFFFC = 0000012 
0030 err_or s-4 0045 ad_write = $126 
FFFFFFFA 00000128 = 
0031 err_no ab 0046 ad_sectr == $12 
FFFFFFFI 0049 5 Specific to aicrodrive operat 
0032 err_bp “15 | ions 
00000000 
0033 at_inf =0 ' 
Q000000E = 00000001 = 
0034 sd_cure = $E 0051 pe_sclk #1 qaicrod 
si rive select clock bit 
0035 sd_curs $F 00000002 = 
00000013 0052 pc_desel == 2 jde-sel 
0036 at_rclk = $13 ect bit 
00000028 00000003 = 
0037 bv_vvbas == $28 «| 0053 pc_selec | == 3 pselect 
00000035 = bt 
0038 sv_pcint = $35 0000004 = 
00000058 = 0054 pe_serb 8 4 302 se 
0039 by_rip $58 rial 1/0 
QOO0OOFE = 00002088 = 
0040 cnitohl == SFE 0055 serdly = 8331 4RS232 
00000110 serial acde delxy 


00000080 = 0070 5 
0056 pesaskt == $80 ptranse 
it aask 0071 5 
000000A0 = 00000000 43FA000C 
0057 sv_tacde == $80 stransa | 9072 secteur lea pre_def (pc) a 
it sode byte 1 jlink in extensions 
000000A6 = . 00000004 34780110 
0058 sv_tiao == -$Ab jtiaeou gove.m bp init,a2 
t for transait aode switching 00000008 4692 ‘a 
000000E7 74 jer (a2) 
0089 pe_notad == $E7 pall bf 00000008 7000 
ts aask except aode control 0075 no_errt aoveq £0,40 
QOOOO0EE = jno errors 
0060 sv_adrun == SEE jaicrod 00000000 4E75 
rive running flag 076 rts 
0061 5 0077 4 
FFFFFFE2 = O000000E 0003 
0062 pe_tctr! == -$1E itransa |) 0078 prc def: defy = 3 
it control one froa (2 really, but ensure space 
ey 
0063 ad_ctrl = $18020 jnicrod } 00000010 0026 
rive control register 0079 14s dete getsec-1% 
0066 th Initialization 00000012 084745545F4D534543 
180 def 8, ‘GET_MSEC* 
0067 4 
081 align 
0068 5 0000601C 009C 
00000000 0082 2%: dafu putsec-2% 
0069 org 0 
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OOOOOOIE OBSOSSSASFADSSESAS | 


0083 defb 0, PUT_MSEC’ 
0084 align 
00000028 0000 
008s defu C) 
1 (procend) 
00000024 0001 
0086 defu 1 
y1 function 
00000020 00F2 
0087 102: detw oher-102 
0000002 054648455874 
0088 defb 5, WHEIS’ 
008? align 
00000034 0000 
090 def C) 
y(fnend) 


0093 #h GET_MSEC procedure 
0094 5 


O73 } Get  aicrodrive sector andr 
aturn it to calling code. 


0096 5 A sector 18 512 bytes long, 


0097} 
00000036 610001CC 
0098 getsecr ber arget 
qeheck paraeeters 
O000003A 6702 
0099 begs 1% 
00000030 4E75 
0100 rts 
shed - leave with error 
O101 5 
OO0OO0SE 4E40 
0102 1%: trap £0 


qenter supervisor eode 
00000040 48670042 
eoves.! .al,ab,-(a7) 
save SuperDASIC pointers 
00000044 6100012 
ber setdy 
ect the drive 


0103 


0104 


10S | 
00000048 SOICOSES 
_ movesw § £1000,d0 
tiveout for sector search 
0000004 32340752 
aove.w 
00000050 48A7C000 
0108 2%: sovee.n 0,4 
get sector desired 
00000054 43FA0234 
O109 lea sc_heed(pe) ya 
i (header buffer) 
00000058 34780120 
0110 Str fove.e nd _sectr,az 
qread next real one 
QO0000SC 4EAAKOOO 
ivr 
00000060 L00E 
bras 
bad eediue 
00000062 40F4 
bras | 32 
ynot a sector header 
00000064 4C9FO00S 
goves.m (27)+,d0,61 
pokey... 
00000068 SEO! 
cep.b 
OOO000GA S7CBFFES 
dbeq 
OODOOOLE 6008 
bras 


0106 


0107 sector (pc) al 


(a7) 


Olns $4000(a2) 


O12 20% 


ous 


Ont 


Os 41,47 


ont 40,21 


On? readd 
one y 
00000070 ACYFOOOS 
O119 20%: poven,w 
yeettle stack 
00000074 4000002¢ 
bre 
qreturn error! 


(071+, 40,41 


6120 orren 


0121 5 
00000078 22780228 
0122 readd: eove.l bufptr (pc) al 
sget buffer pointer 
00000070 34780124 
fove.w 
qread sector 
00000080 4EAAKOOD 
ise 
60000084 OIC 
bra.s 
jwhoops! 
00000086 O24100FF 
and.» = £255,d1 
fold Info bytes 
0000008A 024200FF 
anda 
0000008 1202 
pove.b 62, false 
store dlock, then file no. 
00000090 1281 
sovesd 


0123 ad_read,a2 


0128 $4000(a2) 


0125 erree 


6126 


0127 £255,42 


01279 di, (at) 
O10 

60000092 
O13! all okays 

00000092 61000112 


_ 0132 bsr wnd_den 


idle drives 
00000096 4CDF4200 


133 povea.! (a7)+,al,ab 
yregain SuperDASIC pointers 
9000009A 46FC0000 
eove £6,er 


190 to interrupts ¢ user aod 


O14 


e 
QOOOOOTE LOOOFF LA 
bra 
yall okay 
0138 4 Transaission error 


0133 no_err 


0139 5 
QO0000A2 2A7AOIFE 
O140 errrus wove.) 
OOOO00AE IAFCOOSE 
wove. £'C', (a5) + 
yeignal duff read/write 
QOOOOOAA LAFCOOS4 


bufptr (pc) aS 


142 wove,B £7", (a5) 
QOOOOOAE LAFCOOMS 

o1as pove.b § £°E*, (a5)¢ 
00000082 1ABCOOSE 

O14 wove.b £')', (a5) 
00000086 SODA 

O15 bras = all_okay 


ydon't report error!! 
O148 Sh PUT_NSEC procedure 


Oey 


0150 5 Write a specified microdrive 
sector. 


O1SL 4 A sector Is 512 bytes long. 


0152 4 
00000088 61000148 
O153 putsec: ber arget 
jcheck parameters 


0000008C 4702 
0154 beqs 12 
OOOOOORE 4E75 
0155 rts 
ybad ~ leave with error 
0136 4 
00000000 4640 
0187 Itt trap fo 
enter supervisor aode 
000000C2 48670042 
1s wovee.t al,ab,-(e7) 
qsave Super BASIC pointers 
GOOO0OCE b10000A8 
0159 ber setdy 
gand select drive 
6160 3 
OOOOOOCA JOSCOIER 
O16) oven § £1000,d0 
ttiaeout for sector search 
OOOOOOTE 323A01D0 
0162 aove.w sector (pc) ,d) 
00000002 48A7C000 
0163 Zin povea.w d0,d1,-(a7) 
wget sector desired 
O0000D4 43FAOINZ 
O1b4 lea Sc_head(pc) 2 
1 p(header buffer) 
0000000 S47B012A 
0165 3%1 sove.w «ad sectr,a2 
read next real one 
OOOOO0DE 4EAM000 
Obs ier $4000(a2) 
QOD000E2 LOOE 
167 bras = 202 
jbad eedive 
OOOOO0E4 L0F4 
o1e8 bras) 3 
not a sector header 
OOOOODES ACIFOOOS 
0169 movea.m (a7)+,d0,d1 
yokay.s. 
OOOOO0EA DEOL 
0170 cop.b = d1,d7 
QOOOOOEC S7COFFE4 
O71 dbeq 60,22 
000000FO 4008 
0172 bras = writed 
O73 4 
Q00000F2 4C9FOO0S 
0174 20%: soy (a7)+,d0,d1 
settle stack and 
000000Fb bOOOFFAA 
175 tra eres 
jreport error! 
0176 5 
QOOOOOFA 227A01Ab 
O17 writed: wove.t bufptr(pc),al 
buffer pointer 
QOOOOOFE 2849 
0178 eove.!  al,ad 
00000100 DBFCOO000202 
O179 add.l  £514,a5 
00000106 4280 
0180 clrel a0 
patack file and block 
00000108 1025 
018i eovesb = -(aS),d0 
t(file in ash of word) 
, OOQOOLOA EI 
0182 asiew = £6,d0 
00000106 8025 
0183 or.b | =(a5),40 
OOOOO10E IFOO 
184 + paveew = d0,-0a7) 
00000110 34780126 
0165 pove.w ad _write,a2 
jurite sector 


QO000114 SEAASOOO 
iw 
00000118 3OIF 
pove.m = (a7)+,40 
peettle stack and assuse 
QOO00L1A bOOOFF76 
bra 
gall okay. 
0192 th NHEIS function 


0185 $4000 (a2) 


187 


0188 all_okay 


O193 5 


0194 Convert supplied value to ‘a 
digit hex. string 


O18S 4 
QOOOOIIE S4780118 
O196 nhext = wovesw = ca_gtlin,a2 
sget two long integers 
00000122 4692 


6197 ise (a2) 
00000124 6644 
O19e ones = B02 
Juhoops! 
00000126 S543 
O19 subq.w = £2,d3 
ycheck 2 arguaents 
00000128 6640 
0200 breve = B01 
bad! 
0000012 28349800 
0201 ao! Olabyalst) dd 
qeollect ‘a’ (string length) 
O000012E 673A 
0202 beq.s = B01 
qrero!! 
00000130 00440008 
0203 cop.m = £8,d4 
yoore than 8? 
00000154 4234 
0204 bhi.s = BOL 
tyes - ridiculous! 
00000136 2049 
0208 move.l = al,ad 
yrooa for @ chars 
0000138 5849 
0206 addq f4,al 
O000013A 347BO0FE 
0207 pove.w = ca_itohl,a2 
peonvert 
OOOOOISE 4692 
0208 isr (a2) 
00000140 08040000 
0209 btst £0,d4 
yodd length? 
00000144 4712 
0210 beq.s = 202 
IMO. one 
O2i1 y 
00000146 3204 
0212 wove.w  d4,dl 
jyes ~ aove it! 
00000148 92C1 
o21y subsy  di,al 
QOO0OL4A 1DBA98009BFF 
0214 10%r pove.b O(ab,al.1),0 
Mabyal.l) 
00000150 5249 
0215 addg Eyal 
00000152 SICIFFFS 
0216 ~ dbra 41,108 
0217 4 
00000156 5549 
0218 subq £2,al 
00000158 9204 
0219 20%: subsu  d4,al 
point to string 
OOO001SA 5549 
0220 subg £2,al 
Jaove on a word, 
0000015C 30849800 
0221 pove.w §d4,0(ab,al.1) 


qand enter string length 
00000160 20490058 


0222 gove.l al,by_rip(ab) 
pset arithaetic stack ptr 
00000164 7801 
0223 moveq — f1,d4 
peignal as string 
00000166 7000 
0224 aoveq = £0,d0 
yall okay 
00000168 6002 
0225 bras 90% 
0226 4 
OOOO016A 70FI 
0227 8011 goveq = Ferr_bp,d0 
sduff paraneters 
OO00016C 4080 
0228 9011 tst.1 dO 
yflag error as well 
OODOOIKE 4E75 
0229 rts 


0232 th Comaon routines 


0233 5 
0234 4 Switch to the Microdrive giv 
n by ‘drive’. 


0235 4 Return base of systee variab 
as in Ab. 


0236 5 (.e., destroy Ab as base of 


0238 } Returns in sane sode, 


0239 5 
00000170 7000 
0240 setdvr soveq fat_inf,d0 
jeollect sys vars in Ab 
00000172 4641 
trap fl 
00000174 2048 
sove.! 
00000176 102E00EE 
0243 tn sove.b sy_adrun(ab), 
Ct) wait until drives stop!! 


0241 


0242 a0,ab 


OO00017A. bOFA 
0244 bres 17 
60000170 00700700 
0245 or. £40700, sr 
jswitch off interrupts 
00000180 6100003A 
0246 bsr sys_user 
wait for RS232 to cooplete 
00000184 267000018020 
0247 eove.l fed ctri,a3 
yelcrodrive control register 
0000018A 70E7 
0248 aoveq = fpc_noted, dO 
yaask out transelt aode 
0000018C COZEOOAD 
0249 and.b = sy_teode(ab), 
40 
00000190 00000010 
0250 or.b £910,d0 
‘yoet eicrodrive node 
00000194 L74OFFE2 
0251 aove.b d0,pe_tetrila 


v } ~ in chip and 
00000198 1D4000A0 


0252 wove.b d0,ev_teodela 
6) y In systee vare 
0000019 32380100 
0253 sove.m drive(pe),di 
ydrive to switch on 
000001A0 61000040 
0254 ber select 
qstart it up 
OOOOOIAN 4E7S 
0255 rts 


0238 y Close down (all) Microdrives 


0259 4 Must be executed in superviso 
fr ode, and 


0260 5 returns in sage sode. 


0261 5 
00000186 7000 
0262 wnd_dwn: woveq ‘Eat_inf,d0 
{ensure systea variables) 
QOOOOIAR 4E41 


0263 trap fl 
QOOOOIAA 2048 
0264 wove.) 20,6 
QOOOOIAC 247000018020 
0265 wove.) fad_ctrl,ad 
salcrodrive control register 
00000182 41000040 
0266 ber dselect 
quind down 
00000186 b100001A 
0267 ber” sys_reer 
gre-enable R5232 
000001BA 4E75 
0268 rts 
0271 4 Wait for RS232 to complete op 
| erations. 
0272 1 Executed in supervisor eode. 
0273 } 
0000018C 


0274 sys_wsert 
OO0001BC S3bB00A6 
0278 1% subq.m = £1,sv_tivotad 
) jdecrenent tiseout 
OOO00ICO BDOA 
bites 
O0O001C2 3032080 
cove.m = fserdly,d0 
QOO00ICS SICBFFFE 
0278 21 dora 
qwalt!! 
QO0O0ICA b0FO 
bras | 10 
pluntil timeout expires) 
OOOOOICE 426800A6 
0280 1021 tlre 
qelear wait 
00000100 4E75 
rts 


0276 10% 


0277 


40,21 


0279 


av_tiaolad) 


0281 


0284 y Reset RS232 sode. Executed in 
supervisor pode. 


0285 
00000102 
0286 sys_rsert 
00000102 70€7 
poveg — Epc_notad,d0 
joask out transait aode 
000001D4 COZE00A0 


0287 


0288 and.b = sv_teode(ad), 
do 

000001D8 1740FFE2 
0289 wove.b d0.pe_tetri la 


AD] tin peripheral chip 
OOO001DC 1D4000A0 


DASIC vars!) 0290 ove.b dO, sv_toodela 
6) yand sy! 

0237 4 Nust be executed in Supervise O00001E0 4E75 

r node, | 0201 rts 


0292 | 
0293 5 


0294 4 Select aicrodrive given by D1 
on entry. 


0295 4 Executed in supervisor aode w 
ith interrupts off. 


0296 y AS contains eicrodrive contre 
1 address, 


02974 
OOOO01E2 7403 
0278 select: woveq {pc selec,d2 
qelock in select bit 
OOOOOIES S341 


0299 subqee fiydl 
0300 

fall through... 
0301 5 


0302 4 Switch sequence (used in sele 
ct and de-select ops), 


0303 4 
OOOOO1ES 1682 
0304 adrvt = gove.b 2, (a3) 
jelock register high 
OOOODIER 703C 
0305 soveq = £60,d0 
delay 20uS 
QOOOOIEA E0BE 
0306 ror.) 40,40 
OOOOOIEC 02020001 
0307 and,b = Epe__sclk,é2 
jelock low 
OOOOOIFO 1682 
0308 eove.b 42, (a3) 
QOO00IF2 703C : 
0309 soveq = £60, d0 
pdelay 20uS 
OOOO0I1FA E088 
0310 ror.) = 40,40 
_  OOD001F 7402 
OSL soveq = Epe_desel ,d2 


yclock high - de-select 
QOOOOIFS SICIFFEC 
dbra di,sdrv 
qluntil finished) 
OOOOOIFC 4E75 
Oss rts 
0316 y De-select (all) Microdrives. 


O32 


O37 5 
OOOOOIFE 7402 
0318 dselect: moveq  fpc_desel ,d2 
selock de-select first 


00000200 7207 
319 fo 7,41 
yall drives) 
00000202 60€2 
0320 bras sdry 


0323 3 Check and collect the three s 
ector paraneters. There 


0324 4 should be two integers follow 
ed by a 514 byte 


0325 4 string array. 


0326 4 8 up locations: ‘drive’, 
sector’, and ‘bufptr’. 
03274 
00000204 2200 
0328 arget: move.) a5 dt 
jthree arqueents? 
00000206 9288 
0329 sud.) a3, 
00000208 0C8100000018 
0330 cop.) = £24,¢1 
00000206 6674 
6331 bne.s = 801. 
no = error! 
00000210 514d 
0332 subg £8,a5 


ycollect two integers 
00000212 34780112 
oove.w 
00000216 4692 
jsr 
00000218 4A80 
tst.1 dO 
ycheck errors 
0000021 6668 
brews 
jwhoops! 
0000021 06430002 
cap. 
00000220 6642 
brews 
juweren't two?! 
00000222 45FAOOTA 
lea drive(pe) a2 
sokay store thea 
00000226 24F49800 


0333 ca_qtint,a2 


0334 (a2) 


0335 


0336 801 


0337 £2,¢3 


oe 801 


0339 


0340 wove.) Olab,alel) gta 

2 
0000022A 5043 

osu addq «8,83 

qeheck array type next 

00000220 S04B 

6342 addq £8,a3 
0000022E 0C3b0003B800 

Oss cop.d = £3,0(ab,e3.1) 
00000234 bb4E 

0344 bres = 802 


38/QL User/January 1986 


ynope: 
00000234 720F 
soveq = EF dd 
okay, check string array 
00000238 C2368801 
and.b 
0000023C 00010001 
cop,d 
00000240 6642 
bes 
jnope! 
00000242 2A4E0028 
O49 ove.) by vvbas(ad), 
as okay, get pointer to it 
00000244 28768804 


0345 


O34 (ab,a3.1) dl 


oua7 f1,dl 


oe 00r 


0330 wove.) 4 lab,a3.1),a4 
1 ~ descriptor base 
00000240 DICD 
O351 add. a5,a8 
n00024C DBFECECO 
0352 addl — Olab add) aS 
1 7 array values pointer 
00000250 007602020806 
0353 Cop.m «= «E514, blab ad, 
1) qeheck array Is big enough 
00000254 6620 
0354 brews = BOX. 
jnaughty! 
00000258 3DBCO202DB00 
0355 fove.m § £514,0(a6,05. 


i) jassume array will be filled 
0000025E 4BFbDE02 


0356 lea 2(ab,a5.1),a5 
yand point to array data 
00000262 2480 
0337 sove.| a5, (a2) 
ystore buffer pointer 
00000264 S94A 
0338 subq f4,a2 
jfinally, check ranges 
00000266 3212 
0359 ovesw = (a2),d1 
yerive is ‘L' or ‘2° 
00000268 4881 
0360 ext a 
0000026A S341 
0361 subg fi,d1 
0000026 6704 
0362 beq.e = 102 
jwas "I" ~ okay 
0000026E S341 
0363 subq f1,dt 
0000270 660E 
0364 brews = 702 
whoops! 
00000272 322A0002 
6365 101: sove.m = 2(a2),d1 
00000276 0C410100 
0366 cop.w = £256,d1 
sector is 0..255 
0000027A 6404 
0367 bhe.s = 702 
jwhoops! 
0000270 7000 
0368 poveq = £0, d0 
yokay - signal that 
0000027E 6006 
0369 bras = 902 
yall is well, 
0370 4 
06000280 70FC 
O371 70%: soveq = ferr_or dd 
jbad range 
00000282 4002 
0372 bras = 902 
00000284 70F1 
0373 60%: acveq = ferr_bp,d0 
jbad paraneters 
00000286 4A80 
0374 90%: tet.) do 
signal error retura 
00000288 4E75 
0375 rts 
0378 th Data area 
0379 5 
0380 4 


0381 y Sector header buffer area. 
0382 5 


6383 align 
0000029E 00 
0384 sc_head: defs 20 


e than enough! 


yeor 


0385 
0386 4 The following three loca 
tions aust be kept together 


0387 4 and in this order. 


0388 | 
0000029E 0000 
0389 driver defu 0 
ve request (1 of 2) 
000002A0 0000 
0390 sector: defw 0 
tor request (0.,255) 
00000242 00000000 
O391 bufptes defl 0 
fer pointer 
0394 end 


pari 


ysec 


pout 


ing from unity upwards. There are 
some other ‘files’ that the system 
knows about and which will be found 
on viewing the mapping sector. 


$00 — Thedirectory file. 

$F8 — Themapping file (ie. 
sector 0, 1 block long!!) 

$FC — Theblockispendinga 
delete operation, you 
should never see this 
at this level. 

$FD — The block (sector) is 
unused. 

$FE — The block (sector) is 
bad. 

$FF — The block (sector) does 


not exist. 

Note that this explains the two mes- 
sages the QL produces on formatting 
a cartridge and then immediately 
doing a directory operation on it. 
When a cartridge is formatted a mes- 
sage of the form ‘202/206 sectors’ 
appears. This means that 206 sectors 
could be created and 202 of them 
were verified as being good ones. If a 
directory is requested, the medium’s 
title is given followed by (in this case) 
‘200/202 sectors’. This means that 
out of the 202 good sectors that exist, 
200 of them are left for our use (ie. 
100kbytes of storage). The reason 
why we are 2 down before even start- 
ing is because the directory file (file 
0) always exists and starts off just 
one block/sector long, and the map- 
ping sector (file $F8) always exists 
and is always just one block long. 


The Directory File 


QDOS creates and maintains a direc- 
tory file on each cartridge. It has a 
file header the same as any other file. 
Every time a new file is saved, an 
entry is made in the directory file. If 
the directory file runs out of space in 
its current block, another sector will 
be allocated if possible, or a ‘directory 
full’ message will appear. Each new 
entry in the directory file is in fact 
the 64 byte file header that is also 
stored at the beginning of each file 
(Figure 3). The important point is 
that file numbers (below $F8) are an 
index into the directory file. 


‘User’ File 
entries 


The position of the directory entry 
for any file is given as: 

file_number * 64. Now you can see 
why the ‘internal’ directory file is file 
zero. The position in the directory file 
of the entry for the directory file is ‘0 
* 64 = 0’. That is, at the very begin- 
ning. We know that at the beginning 
of every file there is a file header that 
has the same form as the directory 


entry. In the case of the directory file 
it is simply that the file header and 
the directory entry are one and the 
same bit of stored data (if that doesn’t 
‘shiver yer timbers’ then nothing 
will!). 


SuperBasic Extensions 


There are three extensions to the 
SuperBasic language, the assembler 
source and object listing being shown 
in Figure 4. Their use is explained at 
the top of the source listing. Assum- 
ing you have an Assembler, simply 
create a copy of the source file, 
assemble it, and create a code file on 


115 DIM sz$(514) bf $(514) ,degs(514) a 
$(254) 

120 bf=O:de=0: fno=0:dptr=0 

125 CLS:PRINT ‘File recovery program 


130 PRINT’ Cartridge must be in MNDVI_ 
A 

135 INPUT’Name of file to recover? ' 
#8 

140 GET_MSEC 1,0,52$: fno=dir_entry 
145 IF NOT(#na) 


150 PRINT 'Cannot find ‘;#$: STOP 
155 ELSE 
160 = PRINT'Was file number ‘sno 


165 END IF 

170 scan_drive(fno) 

175 update dir: update aap 

1B0 PRINT'Al] okay - recovered ¢';f$ 
Aas 

3 

185 STOP 

190 : 

195 DEFine FuNction dir_entry 

200 LOCal blk,m,ptr,found: blk=0 


205 de=find_dblk (blk) 

210 IF de 

215 GET_MSEC 1,de,de$: found=0 
220 FOR a=0 107 

225 ptr=m#b4+1 6+) 

230 IF de$(ptr TO ptr+LEN(t$)- 
1)=§ 

235 found=1:EXIT a 

240 END IF 

245 END FOR a 

250 IF found 

255 RETurn blk#8+e 

260 ~— ELSE 

265 blk=blk+1: 60 TO 205 
270 ~=—s END IF 

275 ELSE 

280 =RETurn 0 

285 END IF 

290 END DEFine 

fe) 


300 DEFine FuNction find_dblk (bn) 
305 LOCal a» 
310 FOR m=i TO Sil STEP 2 


315s IF s2$(m)=CHR$(0) 
320 IF sz$(mt1)=CHR$ (bn) 
325 RETurn (m-1)/2:END DEFi 


ee 
MDV1_ called ‘MDRIVE_CODE’. 


The following short program is then 
used to extend SuperBasic whenever 
you need to. 

10 base=RESPR(900) 

20 LBYTES mdvl1_mdrive_ 

code,base 

30 CALL base 
If you don’t have an Assembler (or 
you do but you prefer to use a known 
working copy) then all the necessary 
files and programs in this article can 
be obtained by using the QL User 
‘Microdrive Exchange’. 

These extensions, together with 
the theory presented above, enable 


ne 
330 END IF 
335. END IF 


340 END FOR a 

345 RETurn 0 

350 END DEFine 

300: 

360 DEFine PROCedure scan_drive(fnua 
) 

345 LOCal a,sct,c,base 

370 FOR m=i TO 256: a$(a)=CHR$(0) 
375 FOR sct=1 TO 254 


380 PRINT ‘Scanning sector ‘ssct 
385 IF sz$(sct#2+1)=CHR$ (253) 

390 GET_MSEC 1,sct,bt$ 

395 IF bf$(514)=CHR$ (num) 

400 c=CODE (b#$(513)) 

405 a$(sctt1)=CHRS (ctl) 

410 IF c=0: base=sct: END IF 
ANS PRINT’ - found block ‘; 
c 

420 END IF 

425 END IF 


430 END FOR sct 

435 GET_NSEC 1,base,bf$ 

440 END DEFine 

445 : 

450 DEFine PROCedure update dir 
435 dptr=1+({fno MOD 8) #64) 

440 de$(dptr TO dptrt+iS)=bf$(1 TO 14 
) 

4&5 PRINT'Updating directory file’ 
470 PUT_NSEC 1,de,de$ 

475 END DEFine 

490 : 

485 DEFine PROCedure update map 
490 LOCal Ip 

495 FOR lp=1 10 256 


500 soIF (m$(1p)<>CHR$(0)) 

505 52$(1p#2-1)=CHR$ (tno) 

510 52$(1p#2) =CHR$ (CODE (a$ (1p) 
)-1) 

515. END IF 


520 END FOR Ip 

525 PRINT ‘Updating mapping sector’ 
930 PUT_MSEC 1,0,sz$ 

535 END DEFine 
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us to start having some fun (if that is 


what you call trying to recover one of 
your precious files!). Perhaps the 
most straightforward example is 
that of recovering a deleted file. 


Instant Restoration 


Fortunately for us, QDOS performs 
few changes to a cartridge when a file 
is deleted. The main point to 
remember is that we can only suc- 
cessfully restore one or more deleted 
files to the directory if no file saving 
has been performed since the 
delete(s) took place. Clearly, if a file 
has been saved since a delete, there is 
no reason to suppose that it would not 
use up a deleted file’s directory entry, 
and/or some sectors used to store the 
original file. 

First of all, let’s think of what hap- 
pens when a file is saved. A file 
number is allocated to it, which if 
multiplied by 64 will provide a 
pointer to the start of the directory 
entry in the directory file. Sufficient 
sectors will have been allocated to 
store the file and each of these sectors 
will have been given a block header 
containing the file number and the 
relevant block number (from zero 
onwards). 

When a file is deleted the following 
happens. The first 16 bytes of the 
directory entry are filled with zeros. 
This has the important attribute that 


the file name still exists in the direc- 


AREA RADAR CONTROLLER 


tory, it’s just that the DIR command 
will fail to see it. Second, the map- 
ping sector entries for the erased file 
are returned to the pool of free ones 
by being filled with the data word 
$FDO00 (ie, file $FD:empty:block0). 
These are the only two operations 
performed. So, as already noted, we 
still have the name in the directory. 
Just as importantly, we still have all 
the saved data sectors for the file 
intact, together with their stored 
block headers. 

The listing given in Figure 5 isa 
SuperBasic program that will 
recover a deleted file on a microdrive 
cartridge. First the program sets off 
to find the specified file name in the 
directory file. If found, its file 
number is returned and another pro- 
cedure ‘scan_drive’ is used to scan 
through all the data sectors collect- 
ing sector and block numbers of all 
sectors relating to that file number. 
Only ‘empty’ (ie, empty as far as the 
mapping file is concerned) sectors are 
scanned. The process is quite slow, 
about 25 minutes for an almost 
empty microdrive, but is obviously 
quicker the fuller the cartridge is. 
In any event it is usually quicker 
than trying to rewrite your work 
from scratch. The sector scanner 
returns block zero of the deleted file 
and the first 16 bytes of this block are 
then used to update the directory file 
to its original status. 


SINCLAIR 


A fascinating game and 
simulation. Control up to 
69 aircraft in a busy air 
traffic zone which 
includes 2 airfields and 9 


airways. Don’t run out of 
fuel and avoid collisions. 
Very addictive — highly 
frustrating. Keyboard 
only. 


Please send me the following products on microdrive 
cartridge for the QL: 


Area Radar Controller @ £12.95 
Quadimodo @ £12.95 

Space Paranoids @ £12.95 

Night Nurse @ £12.95 

Star Guard/Gal. Invaders @ £14.95 
Blast Buggy @ £12.95 

Paint Master @ £14.95 


Please make cheques/postal orders payable to Shadow 
Games, and send to: 

SHADOW GAMES, 70 Gooseacre, Cheddington, 

Near Leighton Buzzard, Beds. Tel: 0296 668740 


Last, but far from least, the map- 
ping sector is updated by replacing 
all the appropriate references to used 
sectors. It is unlikely that QDOS will 
have noticed (due to internal buffer- 
ing) that we have changed the direc- 
tory, so to see your previously deleted 
file appear in its full glory simply 
reset the QL and then perform a 
directory. Magic, eh? 


Cure For Bad Mediums 


This is a bit more tricky. The main 
problem is trying to sort out what has 
happened. Is it a totally corrupted 
mapping sector that is causing the 
error, or is it a bad file sector some- 
where. Note that QDOS normally 
complains only if it gets a duff sector 
or, for some reason, the file and block 
numbers supplied by the mapping 
sector do not agree with those found 
in the block header of the correspond- 
ing data sector. Let’s explore a few 
avenues. 

No matter what else we will try 
and do, the basis of our recovery 
attempts is the mapping and use of 
the individual sectors. If we think 
that the mapping sector may be OK, 
the program in Figure 6 will be fine. 
This simple program scans the map- 
ping sector for used sectors and lists 
the entire mapping of a cartridge. If 
we don’t trust the mapping sector 
(and wish to recreate a suitable ‘good’ 
one), the procedure ‘scan_drive’ can 


iF SOFTWARE BY 


QUAZIMODO 

Help our hero rescue 
Esmerelda. Jump the 
battlements and avoid the 
soldiers, rocks, arrows 
and the mad axeman. 15 
screens of brilliant 
arcade action. Keyboard 
or joystick. 


SPACE PARANOIDS 


A fast moving alien zap 
game with 9 different 
aliens and 40 different 
attack waves. Keyboard 
or joystick. 


STAR GUARD/ 
GALACTIC 
INVADERS 


Unbeatable value. Two 
good arcade games for 
the price of one. 
Keyboard of joystick. 


BLAST BUGGY 


Drive your buggy across 
an alien landscape, 
jumping the craters and 
shooting the many aliens 
which are out to get you. 
Keyboard or joystick. 


NIGHT NURSE 

An arcade adventure 
with extra large detailed 
graphics. Guide Nurse 
Gray round St Spooks 
Hospital, avoiding randy 
doctors and Paranoid 
Pete. Keyboard or 
joystick. 


PAINT MASTER 


A graphics package, 
demonstration pictures 
and adventure. Ideal for 
adding pictures to yor 
own programs. No 
royalties required. 


LISTING 6 


140 prt=O:CLS:PRINT ‘Microdrive mapp 
er: 

150 PRINT'Cartridge must be in NDVJ_ 
*"\N 

140 INPUT ‘Copy to printer (y/n)? ‘3 
r$ 

170 IF r$¢>'y':GD TO 220:ELSE :prt=i 
180 INPUT ‘Printer channel spec. ? 
irs 

190 IF r$(1 TD 3)<>'ser'sG0 TO 210 
200 INPUT ‘Baud Rate? ‘sr: BAUD r 
210 OPENE3,r$ 

220 scan_drive(prt) 

230 PRINT 'Finished. ' 

240 IF prt=l:PRINTE3, ‘Finished. ‘:CLO 
SE£3 

250 STOP 

260 ¢ 

270 DEFine PROCedure scan_drive(p) 
280 LOCal sct,c: DIM sz$(514) ,bf$(51 
4) 

290 BET_MSEC 1,0,s2$ 

300 FOR sct=1 TO 254 

310 = PRINT Sector ‘ssct;TO 123° - 


; 
320 IF prt=l 
330 PRINT£3, Sector ‘ssct3T0 12; 


' 
- ‘a 


340s END IF 

350 = c=CODE(sz$(sct#2+1)) 

360 = SELect ON c 

370 = =0sPRINT'directory file’ 

380 IF prt=L:PRINTES, ‘directory 


390 = =253:PRINT'eapty’ 

400 IF prt=l:PRINT£3, ‘eapty’ 
410  =254:PRINT'bad sector’ 

420 IF prt=1:PRINT£S, ‘bad sector 


430 = =255:PRINT’<nul]>' 

440 IF prt=isPRINTE3, ‘null’ 

450  =REMAINDER : 

440 BET_MSEC 1,sct,bf$ 

470 PRINT file ‘sCODE(bf$(514)); 
480 PRINT’ block ‘sCODE(bFS(513 


490 IF prt=l 

500 PRINTES, ‘file ‘sCODE(b#$(5! 
4)); 

510 PRINTES,’ block ";CODE(bt$ 
(513)) 

520 END IF 

530 END SELect 

540 END FOR sct 

550 END DEFine 


be changed so that all sectors are 
scanned. 

Once we have the mapping of the 
cartridge we can check that the block 
numbers for any one file are contigu- 
ous. If not, the missing ones are 
almost certainly corrupt sectors. 
Either way, our recovery attempt is 
reasonably straightforward. We will 
now know which sectors hold which 
files and also the appropriate order of 
the sectors to read (ie, the order is by 
block number). We could now write a 
simple program to open up a channel 
on another ‘good’ device, read the 
appropriate order of sectors from the 
bad cartridge, and write the sector 
data to the output channel. We must 
remember two things here. First, the 
output channel will not require the 
64 byte header from our block zero. 
Second, we must only write the data 
to the output channel, that is, the 
first 512 bytes of our buffer array. 

Clearly if we had missing blocks in 
a sector sequence for a file, we had 
better skip those sectors when trans- 
ferring our data to another medium. 
The point about our recovery attempt 
under these circumstances is that we 
want to get back as much as we can! If 
it really was the mapping sector that 
went west, we ought to still be able to 
recover all of our original files. 

Next Month we’ll turn our attention to 
the slightly trickier medium of floppy 


disks. 


QL SOFTWARE 


MAILING LIST £14.95p 
This program will allow you to quickly store 
and retrieve names and addresses from within 
ARCHIVE. Features include single key functions, 
prints address labels, exports files to Quill for 
mailing list; also compatible with our stock- 
control file. 

STOCK CONTROL £14.95p 
Keeps a complete record of all your stock 
items including retail price, trade price, 
minimum order level, items on order and many 
other features. 

QL APPOINTMENT/ DIARY £24.95p 
Records appointments dates and times, can 
be used as diary dentist, doctors, hairdressers, 
service engineers. Program allows 26 users with 
up to 40 appointments per day. Features 
include search for day, search for next spare 
time, search for client's appointment, print out 
all day appointments and many others. 
QSPELL £19.95p 
Spelling checker for Quill supplied with 25000 
words, checks an A4 page in 24 secs, users 
dictionary and auto learns words. 

PAYROLL £63.25p 
Calculates weekly, monthly or 4 weekly payroll 
full tax calculations, coin analysis and 
payment rounding. 

INTEGRATED ACCOUNTS £89.95p 
This new program from Sinclair will allow you to 
produce full profit and loss account. 

ARCHIVE 

Our team of programmers are able to write 
programs to your requirements, phone for 
further details, 


TRANSFORM LTD 


PRINTERS 


Ex VAT Inc VAT 
187.45 
228.85 
287.50 


DOT MATRIX 

Brother M1009 ............... 163.00 
EpsomLxsOe ae cern es 199.00 
TaxoniKagesas th! 2 et Ria 8 250.00 
DAISY WHEEL 

SMU COOMGMP) 06 vey ee om 181.00 
Brother HR15 .. 349.44 


208.15 
401.85 


ACCESSORIES _ 


Centronics interface .......... 26.04 29.95 
RS: 232eGEn BR. oid bean eae 10.00 11.50 
Monochrome monitor lead ..... 5.00 5.75 
MI009 tractor feed .......... 13.20 15.18 
LX tractor feed .............040. 18.00 20.70 
Microdrive cartridges ...... : 4 a1, 73 1.99 
NOW SAA GISC) rate tors ais ameter cd 26.08 30.00 
Phillips 7502 


(Dept. QL) 


THOFIEGHAT LTB, computer Acconone 


Epson LX80 


DISC-DRIVES 


Technology Research Ex VAT Inc VAT 
delta. interface ois jess 112.60 129.00 
Delta interface with 64k ram ..173.04 199.00 
Delta interface with 128k ram ..216.52 249.00 
Single 3 1/2” 720k disc drive ....97.44 112.00 
Dual 2 1/2” 1440k disc drives ..185.42 243.00 


MONITORS 


Phillips 7502 Green 
monochrome monitor........ 
QL Vision colour monitor ... 


.75.00 86.25 
215.00 247.25 


Please add £5.75p for delivery of printers 
and monitors. 


48 hour mail order service! 


01-656 6350 


24, West Oak, Beckenham, Kent BR3 2EZ 


INVESTORS! 


Track your shares with 
“STOCKMARKET MANAGER” 
from Portfolio Software 
New, Improved Version! Facilities include: 


PORTFOLIO 


Q 


SOFTWARE 


Simple entry of purchases, sales, prices etc. 


Portfolio valuation — analysed by investment type. 
— comparison of performance against market. 


Calculation of % return on each investment. 


Assessment of CGT liability. 


Handles all investment types, including Traded Options. 
Order now at special price of £34.95 incl. p&p 


ARE YOU SURE YOU’RE INSURED? 


Get the best value in house insurance with this new product from 
Portfolio Software “INSURANCE MANAGER’. Facilities include: 


© Quantify total contents value by risk category. 
e Database of key insured items, incl. details of purchase, serial 
number, insured value etc. : 
e Evaluate best quotation from competing companies. 
Special introductory price of £24.95 incl. p&p 


PORTFOLIO SOFTWARE — 
THINKING SOFTWARE FOR PRACTICAL USERS 


Orders/cheques to PORTFOLIO SOFTWARE, PO BOX 15, LONDON SW11 


SRP 


Please send: “STOCKMARKET MANAGER” @ £34.95 incl. 
“STOCKMARKET MANAGER” Information Sheet 


“INSURANCE MANAGER?” @ £24.95 incl. 
“INSURANCE MANAGER?” Information Sheet 


No. of copies 


(Enclose large SAE) 


(Enclose large SAE) 


Overseas mail add £2.50 Europe; £5.00 elsewhere 


42/QL User/January 1986 


ee N 


« i t I * 
FAP? 18 MOT SER FOR USE 
— ae sii ‘Breck that the correct nadius is in the 
—— a drive, ond Unt the drive ts comected 
= * propery and sultched on. 


Intelligent error 
messages 


ih Multitasking clock 
ma | yeh any eee cy EER CSREES } full range of 
te a. -34 are Sore ies ge wey QDOS functions 


Pop up calculator and calendar RAM disks and full range of QDOS functions 


ICE makes all of the day to day tedious computer housekeeping (eg. deleting and copying files) you need 
to do simplicity itself. By using pictures (Icons) to represent the functions you want and the files on your disk 
or microdrive, all you have to do is point and click, instead of typing reams of mysterious commands. ICE 

is extremely powerful and can take action on many files at the same time, saving you hours each week! ICE 
gives you an inbuilt multitasking clock, calendar and calculator for up to the minute efficiency. 


ICE also includes the powerful CHOice tasking software that allows you to run several programs 
simultaneously! 
ICE comes on EPROM cartridge that plugs into the cartridge ROM port 
at the rear of the QL. 


ICE uses next to no user RAM! __ ICE is always available to the user instantly no 

need to load from microdrive or disk ICE is fully compatible with the Psion™ 

applications and most QL commercial software | ICE is fully compatible with 
Superbasic programs and can be called from Superbasic | ICE is fully compatible 


with microdrives, disk drives and RAM disks __ ICE can be used in conjunction with crontcmainemnea 
the cursor keys, a joystick ora mouse | ICE is multitasking! | ICE is only £49.95. Corie cea 


mailmerge 


QL JOYSTICKS 


Ideal for ICE or QL Games 


QSPELL 


* Puzzle section allows you to 


Designed by John Knight Publicity Ltd, London. 
| enclose a cheque/PO/card no. for £ .......esee 


g 
z 
z 
Qspell is a proof reader and solve crosswords, anagrams and Graphics programs 25 
spelling checker for QUILL™ = and puzzles £2 Discount if purchased with| 
with many advanced features, “features fast machine program 2 a 
%* 26000 word dictionary code sort routines @L SURESHOT Fully Micro B 
including 1000 user words.” Fully Menu Driven with Help switched. Now only £49.95 = 
+ Create your own dictionary. files @L QUICKSHOT Ideal for Es 
* Multitasking Quill Editor.” Amazing Value at £19.95 Games £43.95 EZ fu 
i lo] 
ARCHIVER £18.95 £8 ok eae 
Archiver is a collection of 5 0 aS) i2 2 
business programs for Psion 125 ren 3) 
ARCHIVE™, 8 6 aes ip 5 
x Invoicing * Stock Control 1 TES iL See ios ie § 
* Mailing * Appointments Sz#§& i} :6N6 oy a 
Archiver lets you use the real power of a mer a) < = iss bebe Has) 5 
the Archive Database hee es] eee is5onY> iS @ 
You may change the Archiver programs oS ¢O 2x50 On) = 
to your own taste easily FE. 8 oHNGYS :o@ @Q 
Archiver comes with a 48 96°28 Se ous | eb 
page esr and Peimical Care On OLE 7 g 
manual. Monitor mode only. i> SHY ono 
Please write or telephone for *x@L ARCHIVE BOOK iz G2S0CKe5 ig ic = 
full details bylen Muy Bee pa | Bg2cssess08 5g 
NOW WITH MAILMERGE companion text to ARCHIVER Only | machine code QL arc ee 2 See GAG E ke Oo 
£44.95 from Eidersoft | TV/Monitor _ 4 GU ON x CG2Z2< 


EIDERSOFT 0708 852647 Telex 8951807 
Trade Enquiries Welcome 


Psion, Quill and Archive are trademarks of Psion Ltd. 


ACTION 


QL USER : 12 


Nice Password. 
Shame about the Identity. 


It’s a unique combination. 

Your Special Identity Number 
and Personal Password. The valu- 
able key to huge databases teeming 
with activity, set on our Mainframes 
across the nation. 


On Micronet 800, you're a 
valued individual, adding your own 
special flavour and personality to 
the database. 

Take our exciting new “Gallery’- 
You control your personal screens 
for all to see. The intriguing ““Chatline” 
public conversation service gives 
you freedom to express your views 
and meet some remarkable people. 

All part of a tremendous Com- 
munications section that networks 
you to 60,000 Micronet and Prestel 
users across the country. Try Tele- 
shopping, or interview celebrities 
live on ‘“‘Celebrity Chatline’’ every 
Wednesday night. 

And there’s FREE (& instant) 
National Electronic Mail, plus Inter- 
national Telex, and the Contact and 
SwapShop bulletin boards. 


Get computer news first on 


‘“‘Newsflashes” and read up on the 
latest reviews and courses. Feast 
from our regularly changing menu of 
programs to download straight into 
your micro - absolutely free. 

You also get access to Educa- 
tional Computing’s “School Link” 
and Prestel’s huge 300,000 page 
database, including world news, 
business & share bulletins and 
optional homebanking. For only 
£16.50 per quarter, that’s less than 
the price of a daily paper! 

Micronet is unique amongst 
networks and bulletin boards as it 
keeps your phone costs very low with 


special local* rate calls whenever 
you connect up — that’s around 40p 
for a whole hours entertainment 
each evening. 

The only accessory you need is 
a Modem, to get the best value for 
money around in micro communi- 
cations. 

Fill in the coupon for the full 
facts and send to Micronet 800, 8 
Herbal Hill, London ECIRSEJ. But 
be warned, Micronet 800 is a ‘living’ 
service with ever-expanding fea- 
tures. So maybe you'd be better to 
call in at your local Micronet 800 
Action Station. There are thousands 
of Micronetters waiting to meet you ! 


London ECIR 5EJ. Telephone 01-278 3143. 
Please send me the full facts about Micronet 800. 


Name = eed 


Make/Model of Micro 


“Address a 


(| Sister genera" | 


* For 98% of telephone users. 
Prestel is a trademark of British Telecommunications plc. 
On Prestel 


Now, you can build 
Prices inc. VAT & next day delivery a OL system with 


Si 1Cleir peripherals 


fom 4) 


BUILT IN TRACTOR FEED AND 
AUTO PAPER FEED 


sinclair 
Vision 
QL 


The optimum partner for business & y), 


personal use. 100 cps (draft)/20 cps (NLQ). 
New technology Letter Quality, OL matching 
with RS232 interface & cable. 


) 
Monochrome Green £95 gb 


Improved Software & 5 free games 


Q-CALL 


N zs > < i 
ee fh Pe Seats 
QcONNECT J M\\ \\ ‘ann Gt 
FREE PRESTEL SUBSCRIPTION io ca : A D, Density Disk Interface £1 10 

ua 5” wit 
£179 Interface, Power ane D/Drive 1 3.5"+PSU £175 


4 Systems, 68 Foxwood Close, 
Feltham, Middlesex TW13 7DL 


Tandata 
COMPLETE 


NOW BUY ANY 
QL SOFTWARE 


ip 


\ ae and you are a free member in 
| 01-844 1399 Zy_\ 
rents ES ff CLUB 4 SOFTWARE 
ns A free “Cartridge Tidy Box” (size 12) with 


every purchase 

Priority delivery on new QL releases 
Lowest OL software prices and fast delivery 
Special discounts on QL hardware 

Blank Sinclair cartridges at £1.50 each 

No minimum purchase requirements 

Link free 800 Tel. & Freephone (members 
only) 


CLUB 4SOFTWARE Becntces 


Y L in Tidy box 
EXCLUSIVELY OQ £2190 


PO Susteme £36.90 20 Cartridges in Tidy box 


Add £1.00 (p&p) each. kkk ke ke kK KS, 


| wn a 
W Cartridges 
are available at a new (J QL-CAVERN wns 
i i MICRODEAL HOPPER... 
saiteitc .. 2 cieibaate (| MICRODEAL CUTHBERT 
PSION MATCH POINT ... 
HYPODRIVE «0 ; 
MICRODEAL LANDS OF HAVOC 
ice PSION CHESS ....... 
ne TALENT WEST 
METEOR STOR\ 
BOTTY TALENT ZKUL ..... 
C ADVENTURE TALENT GRAPHIQL 
EXEC ADVENTURE 
LB.O QL SPRITE GENERATOR 


LANGUAGES 

METACOMCO ASSEMBLER ........... 
METACOMCO BCPL ...sssssecsessstrseens 
METACOMCO LISP 

METACOMCO PASCAL 

QL HOME FINANCE (BUZ: i 

TYPING TUTOR ....... a MONT OR DISS EME LER 
EIDERSOFT ARCHIVER ......-ssescs 
INTEGRATED ACCOUNTS ........... 


CASH TRADER 


DECISION MAKER . 
PROJECT PLANNER 
ENTREPRENEUR.......... 


JAB ..... 
STAR FIGHT ...... 


QL TOOLKIT 0... 


PI 
SUPER ARCADIA ...... 
SUPER FORTH + REVI 
MASTER BLASTER ... 


BJ CAVER\ 2 QL SUPER BACKGAMMON 

SPOOK EIDERSOFT ZAPPER 

PSION QDRAW EIDERSOFT QLART 
COSMO ssrssssrsestseses 
AREA RADAR CONTI 


Quazimodo (@ £12 

Space Paranoids (@ £12 . 

Night Nurse (@ £12 

Galactic Invaders/Star Guard (@ £14 


Kk wk KK OK Kw 


No body gives vous JL. more than 4Systems* * * * * * * 


Sinclair, QL are Registered Trade Marks of Sinclair Research Limited 


Ty ay 
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Nicky Trevett reviews selected books for the QL and computing in general. 


Books about the QL computer, 
and indeed all Sinclair micros, 
already abound, but books 
about the man behind the 
home computer revolution are 
few and far between. Rodney 
Dale attempts to redress the 
balance with his The Sinclair 
Story, published by Gerald 
Duckworth & Co at £9.95. 

It is a rare compliment to 
find yourself the subject of a 
biography in your own 
lifetime, and certainly Sir 
Clive should find little to 
distress him in this friendly, 
admiring (but not blinkered) 
look at his life and inventions. 

After the first chapter, 
dealing with family, childhood 
and early activities like 
editing Practical Wireless, the 
narrative moves on to the 
setting up of the first company, 
Sinclair Radionics, and starts 
to gather pace. It makes truly 
fascinating reading, filling in 
the gaps in a story that most of 
us thought we already knew. 

Here is the history of 
Sinclair hi-fi, the rise and fall 
of the pocket calculator, the 
miniature television, and of 
course the microcomputers. As 
episode follows episode, Sir 
Clive himself tends to fade 
into the background and 
attention is focussed on the 
companies and the progress of 
the often shaky but always 
spectacular and innovative 
projects. 

It is entertaining and 
immensely readable, and 
whatever you might think 
about the Black Watch 
disaster or the unreliability of 
the calculators, you emerge at 
the end (as the author intends) 
with no doubt at all that in his 
own way, the ever-optimistic 
Sir Clive is a genius, if 
sometimes a rather tragic 


genius. And the ending is, 
inevitably, shadowed by the 
failure of the C5 and the 
financial troubles besetting 
Sinclair Research. 

The 68000 chip has 
undoubtedly seized the 
imagination of assembly 
language programmers, for 
here is yet another book 
especially for them. 

68000 Machine Code 
Programming by David 
Barrow is published by Collins 
at £12.95, and aims to impart 
just about everything the 
assembly language 
programmer needs to know 
about the 68000 family, 
including the “massive” 68020. 

The book is loosely divided 
into four parts. There’s a 
section dealing with the 
internal architecture of the 
processors, a large chapter 
devoted to assembly language 
programming in a general 
way, which includes some 
useful hints, and two chapters 
looking at instructions and 
addressing modes. Several 
routines are provided in the 
course of this part of the book 
which should also prove 
handy. 

The last section, comprising 
well over half the book, is the 
reference section, tables of 
registers, instructions and so 
on. 

It’s a serious treatment of a 
highly technical subject, and 
certainly not for newcomers to 
machine code. But it’s 
competent and as 
comprehensive as a book of 
this size (230 pages) can be, 
and particularly useful for 
anyone wanting to upgrade 
their programming from the 
earlier chips to the 68020. 

The C programming 
language has deservedly 
established itself as a fashion, 
and next is a book that aims to 
teach you all about it. C 
Primer Plus by Mitchell 
Waite, Stephen Prata and 
Donald Martin, published by 
Pitman Publishing and 
costing (take a deep breath) 
£18.50, looks and sounds 
dauntingly like a text book. It 
is also large and very heavy. 
But don’t let this put you off; it 
claims as early as the front 
cover to be a “user friendly 
guide” to C, and it is. 

The emphasis throughout is 
on experimentation and 
practice. Some, but not very 


much, programming 
experience is assumed. The 
Plus, say the authors, comes in 
the question and answer 
sections at the end of each 
section, the breadth of the 
topics covered, the fact that a 
look at Unix is included, and 
the cartoons. 

For a primer, it covers 
impressive ground, from What 
is C? to using advanced 
structures, taking in data, 
operators, I/O functions, loops, 


arrays and pointers on the 
way. There are also several 
appendices, dealing with 
keywords, C operators, data 
types, program flow control 
and more. 

The book advises that you'll 
need access to a computer with 
a C compiler to make best use 
of it. 

There are several good 
books on C available, but I 
particularly liked this one for 
its enthusiasm and ability to 
engage the interest of the 
reader. It is easy to read, and 
therefore easy to learn from, 
with a light touch and 
characters like Ichabod Bodie 
Marfoote infesting the text to 
keep you smiling. Expensive, 
but recommended. 

And now, just for a change, a 
look at three recently 
introduced computer 
dictionaries jostling for space 
on your shelf. 

The Penguin Dictionary of 
Computers, by Anthony 
Chandor and priced at £3.95, 
is on its third edition and has 
been updated, it says, to take 
into account such 
developments as the rise of 
personal computers. Sphere’s 
Dictionary of Computing costs 
£4.95 and was published in 
1983; reviewed here is the first 


paperback version, which, 
ominously, does not seem to 
have been updated since the 
book first appeared in 1983. 
The third offering is also the 
smallest, the tiny pocket 
Microelectronics Dictionary by 
Malcolm Plant, published by 
Longman at £1.50. 

The Penguin Dictionary, as 
might be expected from such 
an illustrious stable, is well 
researched and written, and 
pleasant to use. It’s suitable 
for both business and home 
use — ‘joystick’ is in there, and 
‘spreadsheet’, although it 
hasn’t heard of integrated 
software, which won’t please 
Psion. 

It’s certainly better than 
Sphere’s effort, which, to do it 
justice, is aimed more at 
academics and industrial 
users. It adopts a much more 
technical approach to its 
definitions, is not so clearly 
presented, and doesn’t know 
about such things as joysticks 
and spreadsheets. 

Neither dictionary could be 


> said to be written with QL 


users in mind — you won't find 
‘microdrive’ in either of them, 
for example. 

The baby of the trio turned 
out to be a surprise. 
Microelectronics Dictionary 
covers “the science and 
technology of 
microelectronics”, including 
space research, medicine, 
telecomms, computers and 
consumer products, but still 
finds room for items missing 


from the two bigger 
dictionaries — ‘dongle’, for 
example, ‘sprite graphics’, 
even ‘microdrive’, at last! 

Its definitions of basic 
computing terms tend to be 
less deep but also more 
immediately comprehensible 
than the opposition, and all in 
all, it represents good value for 
money. 
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SEE MICRONET 800 IN ACTION 


At selected Boots, Laskys, John Lewis & vou local computer store 


____ AVON 
Bath. Boots, 1 Marchants Passage, 
Southgate. Tel: 0225 64402. 
Bristol Boots, 59 Broadmead. 
Tel: 0272 293631. 
Weston Super Mare. Peter 
Castell Ltd, 28 g crrchind Street 
Tel: 0934 2477 

SsSsee 
Bedford. Boots, The Harpur Centre, 
Harpur Street. Tel: 0234 56231. 
Bedford. Software Centre, 
52a Bromham Road, 
Tel: 0234 44733. 
i iton Recent D] Computers, 


cag aig Tek 0525 383929. 
ie ts, 82-86 Arndale Centre, 
Tel: 0582 20592. 


BERKSHIRE 
Slough. Boots, 178-184 Hi: 
Slough 0753 .!27267. A 
Maidenhead. Boots, 54-58 High 
Street. Tel: 0628 27892. 
BUCKINGHAMSHIRE 
Milton Keynes. Boots, 
18 Crown Walk, Secklow Gate West 
Tel: 0908 607327. 
Milton Keynes. Depson Business 
Systems, 65 Aylesbury Stvch 
tchley. Tel: 0908 367: 
Aylesbury. Boe 69- AOR Friars 
Square. Tel: 0296 83661. 
Chesham. Reed Photo & 
Computers, 113 faee Street. 
Tel: 0494 783373. 
CAMBRIDGESHIRE 
Cambridge. Boots, 65-67 Sidney 
Street and 28 Petty Curry Street. 
Tel: 0223 350213 
Cambridge. Cambridge Compute 
Store, 4 Emmanuel Street 
Tel: 6223 358264 
Peterborough. Boots, 40-42 Bridge 
Meat 0 lowe , 
eterboro c Sales, 
Unit 6 Mi ite Parade, 
Tek 0733 49696. 
St Neots. Compute, 3 Cross 
Keys. Tel: 0480 72013 
CHESHIRE 
Chester. Boots, 47-55 Foregate 
Street. Tel: 0244 28421 
Chester. Computer Link, 21 S 
Werburgh Street. Tel: 0244 316516, 
Crewe. Midshires Computer 
Centre, 57 Earle Street 
Tel: 0270 589191. 
Macclesfield. Computer Centre, 
e Ce Tel: 0625 618827. 
(on. Boots, 39-45 Bridge 
el: 0925 574825. 
CLEVELAND 
Middlesborough. Boot: 
88-90 Linthorpe Roa e 
Cleveland Centre. Tel: 0642 249616. 
Darlington. Darlingion Computer 
Shop, 75 Bond; 
Tel: 395 4874 is 
CORNWALL 
St. Austell. AB&C Computers, 
Duchy House, 6 Lower Aylmer 
Square, Tel: 0726 64463. 
Bodmin. eee 
18 Normand 
Tel: 0208 31 as 2 


rri 
Steet 


Desks The Paper Shop, 
Kings Road. Tek 0305 64564. 
Poole. Lansdowne Computer 
Centre, 14 Arndale Centre. 
Tel: 0202 670901. 
ESSEX 
Basildon. Basléon Sear 
entre, rt 
ier East Square. Ter 02 0208 27 27822. 
Braintree. Mires ie 
24 Bank Street. Tel: 0376 es 
Chelmsford. Maxton Haym: 
5 Broomfield Road. Tel: sea 45 354595, 
Colchester. Boots, 5-6 Li 
Walk. Tel: 0206 577303. 
Colchester. Colchester Computer 
Centre, 3a Short Wyre Street. 
Tel: 0206 47242. 
Grays. H. Reynolds, 79 Orsett 
Road. Tel: 0375 5948. 
Harlow. Harlow Com 
17 Staple Tye. Tel: 02 
Hornchurch, Comptel Computer 
Systems, 112a North Street. 
Tel: 0402 446741. 
Ilford. Book, 177-185 High Road. 
Tel: 01-553 2116. 
Romford. Software Plus, 
72 North Street. Tel: 70 65271. 
Southend-on-Sea. Computerama, 
88 London Road. Tel: 0702 335443. 
Southend-on-Sea. Cerspatcs 
Centre, 336 London Road. 
Tel: 0702 337161. 
Southend-on-Sea. Estua 
Personal Computers, 318 Chartwell 
North, Victoria Circus Shopping 
Centre. Tel: 0702 614131. 
GLOUCESTER 
Cheltenham. Screen Scene, 144 St 
Georges Road. Tel: 0242 528979. 
Gloucester. Boots, 38-46 Eastgate 
Street. Tel: 0452 423501. 


ae Centre, 


HAMPSHIRE 
Basingstoke. Boots, 15 Old 
Basing Mall. Tel: 0256 51611. 
Bournemouth. Boots, 18-20 
Commercial Road. Tel 0202 21713. 
Fareham. Electronequip, 36-38 
West Street. Tek: we 230670. 
Fareham. Boots, 21 Westbury 
Mall. Tel: 0329 232011 
Portsmouth. Micro Choice, 

159 Havant Road, Drayton. 
Tek 0705 327591. 
Portsmouth. RDS Electrical 
(hort smouth) Ltd, 157-161 

gston Road. Pet 0705 812478. 

Portsmouth. Boots, 194/204 
Commercial Road, Tel: 0705 825248, 
Southampton. Boots, 23- 
Above Bar Street. Tek 0703 333983. 
Waterlooville. GB Microland, 
7 Queens Parade, London Rd. 
Tek 0705 259911 


Tunbridge Wells. Modata 
ae ter Centre, 28-30 St. Johns 
Tek 0892 41555. 
LANCASHIRE 
Blackpool. Boots, 28-38 Bank Hey 
ae ictoria | ot el: rh 22276. 
Blackpeo lackpool Computer 
oie Street. P 
re 0253 2023 
Bolton. Pa uter World UK. 
208 Chorley Old Road. 
Tel: 0204 494304 
Burnley. IMO Computer Centre, 
39-43 Standish Street 
Tel 0282 54299. 
Lancaster. Northern ts, 
89 Scotforth post Tel: 0524 62634. 
Preston. 4Ma' & 
67 Friargate. tel: s Gare sels 2s 
Rochdale. Boots, 50 Market 
Way. Tek ¢ 0706 53225. 
LEICESTERSHIRE 4 
Leicester. Boots, 30-36 Gallowtree 
Gate. Tel: 0533 21641. 
Leicester. DA Computers 
104 London Road. Tel 0533 549407. 
pea Harborot Harborough 
Home Computers. 7 Church Street 
Tek 0858 63056. 
LONDON 
ers of Wi 


ee te 


. 230 Tottenham 

eae Road. Tel: 01-636 6500. 

W1. Sonic Foto Micro Center, 
256 Tottenham Court Road, 
Tek 01-580 5826. 
W1. Tomorrows World Today, 
27 Oxford Street. Tel: 01-439 7799. 
WC1. Transam Micro Systems, 
59-61 Theobalds Road. 
Tek 01-405 5240. 
WS. Boots, 127a Kensington 
oe Tel: 01-937 6882. 

Vic Oddens Micros, 

6 London Bridge Walk. 
Tel: 01-403 1988. 
SE15. Castlehurst Ltd, 152 Rye 
Lane, Peckham. Tel: 01-639 2205. 
EC2. Devron Computer Centre, 
155 Moorgate. Tel: 01-638 3339. 
sh nee ale 19 The Bourne, 


, Sorngate, 
rel OL iy 4943 
N22. Boots, 38-40 Road, 
Wood Green. Tel: 01-881 0101. 
abe Davinci Computer Store, 
2 Brent see Hendon. 
Tek 01-202 2272. 
‘4. Boots, Brent Cross 
Centre. Tek 01-202 5256/7. 
ters bas 86 Golders 
Cee. Tek st O1- 209 0401. 
GREATER ee 


W1. Com; nore 


HERTFORDSHIRE 
Potters Bar. The Computer Shop, 
197 High Street. Tel: 0787 444 44417. 
Stevenage. DJ] Computers, 

11 Town Square. Tek 0438 65501. 
Watford. SRS iiecsrmere, 

94 The Parade, High Street. 

Tel: 0923 26603, 

Welwyn Garden City. D 
Computers. 40 Fretherne 
Tel: 96 28444 


oad. 


CUMBRIA 


HUMBERSIDE 


Kendal The Kendal Computer 
Centre, Siramongate. 
Tel: 0539 22559. 
Whitehaven. PD Hendren, 15 King 

ered, Tek ons 28%: _— 

orkington. Technology Store, 
12 Finkle Street. 
Tek 0900 66972. 
Penrith. Penrith Communications, 
14 Castlegate. Tel: 0768 67146. 


Beverley. Somenang World, 

10 Swabys Yard, Dyer Lane. 

Tek: 0482 881831. 

Grimsby. R.C. Johnson Ltd, 

22 Friargate, River Head Centre, 
Tel: 0472 42031. 

HulL Boots, 48-58 Prospect 
Centre. Tel: 0482 22334. 

Hull Computer Centre, 26 Analby 
Road. Tel: 0482 26297. 


Altrincham. Boots, 13-1 
George Sreet. Tel: 06 8 dan 
Hyde. C Tech Computers, 184 
Market Street. Tel: 061-366 8223 
Manchester. Boots, 32 Market 
Street. Tel: 061-832 OF 
Manchester. Mighty Mi 
Sherwood Centre, 26) Wilmslow 
Road, Fallowfield. Tel: 061-224 8117. 
erect NSC oe 
0} tc! 
Tetras Dee 
le. Marple Computer Centre, 
106 hurch Lane. Tel 061-449 9933. 
os Home & Business 
sea eared 54 Yorkshire Street. 
Ter bt 


idham. ae 1 Town Square 
Shopping Centre. Tel: 061-624 2525 
Stockport. National Micro 
Centres, 36 St Peters Gate. 

Tel (061-429 8080 


DERBYSHIRE 


ISLE OF MAN 


MERSEYSIDE 


Alfreton. Gordon Harwood, 

69-71 High Street. Tel: 0773 836781. 
Chesterfield. Boots, 35-37 Low 
Pavement, Market Place. 

Tel: 0246 203591. 

Derby. Boots, 1 Devonshire 
Walk. Tel: 0332 45886. 

Derby. First Byte Computers, 
10 Main Centre, London Road. 
Tel: 0332 365280. 


DEVON 


Exeter. es 251 High Street, 

Tel: 0392 32244. 

Exeter. "Opa Channel, Central 

Station, Queen Street. 

Tek: 0392 218187. 

Lee nton. Computer es Ltd, 

yde Road. cet 080: 

Ply mouth. S: 76 Cornwall, 

Street Tek 0752 8 05. 

Fiymouth. Computer Base, 

21 et Avenue. Tel: O75 672128, 

Plymouth. Boots, 2-6 New George 

Street. Tel: 0752 266271. 

Seaton. Curtis Computer Services, 

Seaton Computer Sho, 

51c Harbour Road. Tel: 0297 22347. 

Tiverton. Actron Microcomputers, 

37 Bampton Street. Tel: 0884 252854. 
DORSET 

Bournemouth. Lansdowne 

Computer Centre, 1 Lansdowne 

Crescent, Lansdowne. 0202 20165. 


Douglas. T.H. Colebourn, 
57-61 Victoria Street. 
Tel: 0624 TA. 


Ashford. DoH. 102 North Street. 
Tel: 0233 32597. 

Beckenham. Supa Computers, 
425 Croydon Road. 

Tel: 01-650 3569. 

Bromley. Boots, 148-154 High 
Street. Tek: 01-460 6688. 
Chatham. Boots, 30-34 Wilmott 
Square, Pentagon Centre. 

Tel: 0634 405471 

Gravesend. Gravesend Home 
Computers, 39 The Terrace. 

Tel: 0474 23871 

Folkstone. Boots, 24-26 Sandgate 
Road. Tel: 0303 54007 
Maidstone. Boots, 56-62 King 
Street. Tel: 0622 53912. 


Maidstone. Kent Micros, 52 Union 
Street. Tel: 0622 52784. 

Rainham. Microwa' fom ters, 
39 High Street. Tel: 76702. 
Sevenoaks. Ermest eae ha 
Computers, Dorset Street. 

Tel: 0732 456800. 

Shortlands. The Village House 
of Computers, 87 Beckenham Lane. 
Tel: 01-460 7122. 

Sittingbourne. Computer Plus, 
65 High Street. Tel: 0795 25677. 
Tunbridge Wells. Boots, 7-11 
Calverley Road. Tel: 0892 26486. 


Didier mee ae 31-37 
all 


ton. 
Ta Ost oe 1782. 
St Helens. Microman Computers, 
Rainford Industrial Estate, Mi 
Lane, Rainford. Tel: 0744 885242. 
South poet -39 Chapel 
Street. Tel: 0704 3: 
St. Helens. Boots, 8 Church 
Street, 24 La Grange Arcade. 
Tek 0744 25488. 
MIDDLESEX 

Harrow. Camera Arts, 42 St 
Anns Road, Tel: dee bed 
Hounslow. Boots, 193-199 High 
Street. Tel: 01-570 w156. 


Ears Twillstar Com 
a Road. Tel: 01-574 
Tedd 


Street. 


palit Ltd, 
5271. 


on. Andrews, Broad 
el: 01-977 4716. 
Twickenham. Productive 
Computers Ltd, 72 Heath Road. 


Tel: 01-891 4991 

Uxbri Computers, 

7 Windsor Street. Tel: 0895 51815. 

N he Ae MS King 
lorwic! 125-129 

Street. Tel: 0603 32129, 

Thetford. Thetford C CB& Micros, 
21 Guildhall Street. Tel: 0842 61645. 
NOTTINGHAMSHIRE 

Mansfield. Boots, 39 Four 


Seasons Sho Cent 
Tek 0623 75088 a! 


ba Boots, it 19 Victoria 


22u Risa, O80 tingdon 
Hun 

Street. Tel: 0602 505585. 

Worksop. Computer Graphix, 

32 Bridge Street. Tel: 0909 472248. 
NORTHAMPTONSHIRE 

Kettering. Boots, 35 Gold 

Street. Tel: 0536 514675. 

Northampton. Boots, 9 The 

Parade. Te. 0604 22573 


Bognor Regis. Bits & Bytes, Hi 
Street. Tel: th 867143. a 
Eastbourne. Boots, 15 Eastbourne | 
Arndale Centre. Tel: 0323 27742. 
Horsham. Boots, 1 Swan Walk, 
Tek 0403 53053. 

Horsham. Orchard Computer 
Centre, 34 East Street 

Tel 0403 64884. 

Worthing, Boots, 48-52 Montague 
Street. Tel: 0903 207106. 


NORTHUMBERLAND 


TYNE & WEAR 


Cease Telerents (Northern) 

Ltd, 31 New Gate Street. 

Tek 0607 513537. 
OXFORDSHIRE 

Abingdon. Ivor Fields 

Computers, ee Stert Street, 

Tek 0235 2120 

Banbury. cits uuter Plus, 

2, Church iane. Tet 0295 55890. 

Oxford. Science Studio, 7 Little, 

Clarenden Street. Tel: 0865 54022. 

Oxford. Absolute Sound and Video, 

19 Old Hsp Street, Headington, 

Tek 0865 65661. 


SCOTLAND 
Aberdeen. Boots, 133-141 Union 
Street. Tel: 0224 585349. 
Dundee. Boots, 49-53 High Street, 
Tel: 0382 21756. 
Edinb Boots, 101-103 Princes 
Sri Tel 031-225 8331. 


sat is Microworld Computer 
corre Street. 


oe Gi 2s 228 1 Paburgh é 
Edin omputers, 
51-57 Lot Roa s 
Tek 031 229 4418. 
Edinb: Silicon eine 
7 Antigua Street. Tel: 031 557 4546. 
Glasgow. Boots, 200 Sauchiehall 
Street Te Tek 041 332 1925. 
clase: Microworld Computer 
Tero P 11 Bath Street 

oe 


1 332 1116. 

. Boots, Union Street and 
Ais fe Street. Tek: 041 248 7387. 

. Tom Dixon Cameras, 
fe a 7 use Str Street. 
Tel: 04. 
fh aay: Cretan Ltd, 
30 Gordon Street. Tek 041 226 4878. 
East Kilbride. Boots, 33-37 The 
Plaza. ae 035 52 20629. 

Boots, 79-91 

Street. Tek 0324 20535. 
Hamilton. Tom Dixon Cameras, 
8 Cadzou Street. Tel: 0698 283193. 
Peterhead. North East 
Computers. 1 Ellis Street. 
Tek 0779 79900. 

SHROPSHIRE 
Shrewsbury. Computerama, 
13 Castlegate. Tel: 0743 60528. 
Telford. fine uter Village, 
2/3 eee eG oa 
Square. Tel: 
Telford. Tele Dees, 
38 Mall 4. Tel: 0952 504911. 

SOMERSET 


Newcastle-upon-Tyne. Boots, 
Eldon Square. Tel: 0632 329844. 
Newcastle-upon-Tyne. 

RE Computing, Parkview House, 
Front Street, 4 Lane Ends. 
Tek 091 2701740. 
Sunderland. Business Micro 
Communications Ltd, Refuge 
Assurance Buildings, Saint 
Street, West Sunniside. 
Tel: 0783 654916. 

mess 
toenlace, ey Computer 

Services, 70 Mill: Street, The Square, 
Trecynon. Tel: 0685 881828. 

Aberys Aberdata at 
Galloways, 23 Pier Street 
Tek 0970 615522. 

Cardiff. Boots, 36 Queens Street 
& 105 Frederick Street 

Tel: 0222 31291. 
Cardiff. The Computer Sho, 

41 The Hayes. Tel: 0222 21 
Cardiff. Cardiff Microcom ters, 
46 Charles Street. Tel: 0222 373072. 
Ne rt. Gwent Computers, 

92 Chepstow Road. 
Tel: 0633 841760. 
Newport. Boots, 155-156 
Commercial Srest Tek pee 51212. 
Arcade, The Ousiiamt Sore 

le, The Quadrant Shopping 
Centre. Tel: 0792 43461. oF 
Swansea. The Micro Store, 35-36 
Singleton Street. Tel: 0792 46980. 

WARWICKSHIRE 

Coventry. Boots, 38-42 Corporation 

Street. ie ‘0293 ee 


Leami Wong 
31 Parade Tel 26 24948, 
Leamington Spa. Leamington 
Hobby Centre 121 Regent Street. 
et 6 29211. 
luneaton. Behe City, 
Rend Tek: 0203 38204 
Rugby. O.E.M, 9-11 Regent Street. 
Tel: 0788 70522. 

WEST MIDLANDS 
Birmingham. Boots, City Centre 
House, 16-17 New Street 
Tek 021-643 7582. 

Dudley. Central Computers, 
35 Churchill Precinct. 
Tek 0384 238169. 
Stourbridge. Walters a as 
tems. 1 eee Road. 
el: 0384 371 
Walsall. New Horizon, 1 Goodall 
Street. Tel: 0922 24821. 


iomas 


1a Queens 


Taunton. Boots, 64-65 High 
Street. Tel 0823 76061. 


STAFFORDSHIRE 
Newcastle-under-Lyme. 
Computer Cabin, 24 The Parade, 
Silverdale. Tel: 0782 636911. 

Stoke on Trent. Town oo 
Store, 30 Town Road, Hank 
Tek 0782 287540. 
Stoke on Trent. Boots, 3-5 Market 
Square, Hanley. Tel: 0782 23271. 
SUFFOLK 
Bury St. Edmunds. Boo! 
11-13 Cornhill Tel: 0284 701516. 
Bury St. Edmunds. The Suffolk 
Computer Centre, 1-3 Garland 
vue Tel: 0284 705503. 
eee Computer 
wn Street. Ter Tek 04 


3. 50965. 


South Cro aie Concise 
Computer Consultants. 1 Carlton 
= Tek 01-681 6842. 

roydon. The Vision Store, 
s "5% High Street. Tel: 01-686 6362. 


roydon. Boots, The Mall, 
oa 18 Whitgift Centre. 
Tek 01-688 6021. 
fe som. The Micro Wiig ot 
Station Approach. 
Tek 0372 72: 21333 
Guildford. Calldford Computer 
Centre, 5 The Quadrant, Bridge 
Street. Tel: 0483 578848. 
allington. Surrey Micro 
Systems, 53 Woodcote Road. 
ee ete -647 5636. 
oking. 
Comical Way Te Te 0486 225657. 
SUSSEX 
Brighton. Boots, 129 North Street 
Tek 0273 27088. 
Brighton. Gamer, 71 East Street. 
Tek 0273 728681. 


WILTSHIRE 
West Wiltshire 
Men Whiteheart Yard. 
Tek 02214 67259. 


YORKSHIRE 
Bradford. Feats, 11 Darley Street. 
Tek 0274 39089 
Doncaster. el 13-15 French 
Gate, Tel: 0302 62238. 

Barnsley. Boots, 34-40 Cheapside. 
Tel: 0226 82616. 
Huddersfield. Micro World 
Computers, 1006-1010 Manchester 
Road, Linthwaite. Tel: 0484 846117. 
Huddersfield. erie 22 King 
Street. Tel: 0484 21756. 
Leeds. Boots, 19 Albion Arcade, 
Bond Street Centre. Tel: 0532 $3551. 
Leeds. Micro Power, Northwood 
House, North Street. 
Tek 0532 458800. 
Sheffield. PIP Micro 
Communications, 9 Taptown 
Crescent, Broomhill. 
Tek 0742 661096. 
Sheffield. Boots, 4-6 High 
Street. Tel: 0742 78333. 
Wakefield. Boots, 26-28 Up) 
irkgate. Tel 0924 376181. 
York Sonnets Centre, 
te Arcade. 
641862. 


7 Ston 
Tek 


Phone 01-278 3143 for your free information pack now ! 
Micronet 800, 8 Herbal Hill, London EC1. 


Another teasing computer 


problem from Marcus Jeffery, 


and technical author. 


our resident problem poser 


This month’s prize problem 
will really get you thinking. 
Don’t rush into anything! The 
solution might take you less 
than an hour, or could keep 
your micros whirring into the 
middle of next week, possibly 
next year! 

A lecturer first introduced 
me to this problem, though in 
a slightly different form. You 
simply have to generate the 
series of numbers which have 
the form: 

3'7) where: i>=0 and 

j>=O0 
Kasy isn’t it? The expansion of 
3' will look like: 

1,3, 9, 27, 81, 243, 729, 2187, 

6561, 19683; 4... =~ 
and the expansion of 7 will be: 

1, 7, 49,343, 2401, 16807, 

117649, 823543, ... 

Now, if we multiply all 
combinations of these numbers 
together, in order, we get: 

Ixd, 8x1, 1x7, Sxlsax 

ZU UeKAS. ORT, ons 
or: 

1.3), 7, 9,21, 27, 49,63. 
giving the series shown in 
Figure 1. 


To win the prize of a free 
year’s subscription to QL User, 
all you have to do is find the 
1500th number in the series. 
Having found this number, 
add up all the digits in the 
number and enter the result 
on the form below. For 
instance, from Figure 1, if l’d 
asked for the 20th number in 
the series, then the result 
would be 18 (ie. 2+1+8+7). 

If you’re a budding genius, 
then you might want to work 
this out by hand, but the rest of 
us will undoubtedly write a 
program to find the answer. 
Feeling generous, I decided to 
give you the program to do it 
(Figure 2). The variable 
‘number’ simply generates all 
odd numbers, starting at one. 
Then for each odd number, the 
‘sevens’ REPeat loop divides it 
by seven as many times as 
possible, such that it still 


obtains an integer result. 
Having done this, the ‘threes’ 
REPeat loop divides the result 
by three as many times as 
possible. If after all this the 
final result is one, then the 
number must be in the series, 
so it’s printed and ‘count’ is 
updated. 

Ifyou type this in and runit, 
you'll begin to get the series 
shown in Figure 1. Were you to 
go away for a day or two, then 
you might expect to come back 
and find the solution waiting 
for you. Unfortunately, the QL 
can only handle integers up to 
32767, which will only give 
you the first 33 numbers, so 
Tm afraid you'll have to 


PUZZLE PAGS 


100 counmt=1] 

110 rmumber=1 3s REMNark 3° O"7"O 

120 REFe@at series 

Ta FRINT count, muimber 

140 coaunt=count+l 

ee) REFeat divide 

1460 number =number +s 
divd=number 
REFeat sevens 


ERSE 
EMD TF 


REF eat 
TF 


END IF 
END 


a 


ead 
340 END 


REF eat 


M)IcrO 
ACCESSORIES 
—— 
GIANT SIZE 
CHEWABLE 
PENCIL 


FOR EXTRA 
DIFFICOLT 
PROBLEMS 


modify the program 
somewhat! Remember, you’re 
going to need all the digits in 
the number if you want to 
enter the competition. 
Finally, I’d also be 
interested to see any elegant 
SuperBasic solutions to this 
problem, and ll be including 
one or two of the most stylish 
when giving the results. 


Te divas 7 
divd=divd/7 


EXIT 


END REFeat sevens 
the 
divd/ s 

divd=divd/3 


= divd DIV ¥ THEN 
sevens 
= divd DIV 2 THEN 


EXIT threes 


REFPeat threes 

IF divd=1 THEN EXIT divide 
END REFeat divide 
serles 


All entries must be written on 
the panel provided on this 
page. Any other form of entry 
will be disqualified. 

Entries must be sent by post 
to this address: 

PUZZLE PAGE, 

QL User, 

Priory Court, 

30-32 Farringdon Lane, 

London EC1R 3AU 
to arrive no later than 31st 
January, 1986. 

The winner will be the first 
correct entry drawn out of the 
Editor’s hat (who said he hada 
big head?!). 

All entries will be judged by 
the Editor of QL User, whose 
decision is final, and no 
correspondence will be entered 
into regarding the result. 


ENTRY FORM: 


QL User/January 1986/49 


Ch 


THE QL CONTROLLER 
Simply the best disk 
controller available for your 
QL with facilities and 
performance superior to any 
other system and with a host 
of outstanding features. 


* Signal buffering between 
QL + Controller assures 
complete data integrity 

* ROM based utilities 


* Supports up to 4 drives in 
double density mode 


* Uses 40 or 80 track oe 
drives, single or double 
sides, 3, 31%” or 51%” Pes ¢279 95 
format ‘Tee « é : 


* High compatibility with 
microdrives 


ange Into Overdrive 
ith Cumana’s Super 
ew QL Controller 


The Sinclair QL Controller + 312" Disk Drive System 


SPECIAL 
INTRODUCTORY OFFER’ 


As an introduction to the 
remarkable new QL Controller, 
Cumana have put together two 
special packages at very special 
prices. 


CA071 QL CONTROLLER with 
CS005 31%” disk drive ONLY 


£189.95 
| inc VAT 
CA072 QL CONTROLLER with 


CD005 31%” dual 
» disk drive ONLY 


Upgrade your Sinclair QL 
with Cumana’s 1 Megabyte 
and 2 Megabyte QL Disk 
System at prices that no 
one can match’ 


* Easily connects into QL ® 
expansion socket | hed . CUMANA 


CUMANAS QL CA070 
CONTROLLER — ONLY 


£82.95 inc vat . 


A CHOICE OF DISK DRIVES 


Cumana can offer two disk 
drives compatible with the QL 
producing 1 Megabyte and 


The best name in memory 


|| Cumana Limited, Pines Trading Estate, 

| Broad Street, Guildford, Surrey, GU3 3BH. 
|| Telephone: Guildford (0483) 503121 

|| Telex: 859380 


ORDER FORM (QL OFFER) 


QL USER NOVEMBER 


ORDER FORM (QL OFFER) J 
. 4 


Cumana Limited, Pines Trading Estate, Broad Street, Guildford, Surrey, GU3 3BH. 
Telephone: Guildford (0483) 503121. Telex: 859380 


2 Megabyte systems at very Qty Please rush me:- ea 
special prices. TICK 
CA070 controller(s) at £ 82.95 = 
den CA071 with CS005 disk drive(s) at £189.95 
CS005 3%" 80 track double CA072 with CD005 disk drive(s) at £279.95 ; 
sided disk drive CS005 disk drive(s) at ¢109.95 
CD005 disk drive(s) at 2199.95 dl 


£109.95 


inc VAT 


CUMANAS CD005 37/2” 80 
track double sided disk drive 


| enclose cheque/PO for 


or debit my Access/Visacardno [TT TTTTIITIIIIII 1] H 


DELETE AS APPLICABLE F 


=n wheats 


NAME 


£10005) 2 eS 


7 
inc VAT Se ee ee 


1100 REMark *#* Quill & Swoon - PLOT 
DESIGNER ##* 
11 REMark 

ock ### 

128 REMark 

138 REMark Title nouns 


##% By Robert Alc 


_ |140 DATA "Romance","Love", "Conflict" 


"Meeting", "Passion" 
158 DATA "Destiny","Intrigue", "Fatef 


ul Meeting","Chance Encounter", "Emot | 


ion" 
148 RESTORE 140 
178 RAND=RND(1 TO 18) 
18 FOR A=1 TO RAND 
198 READ Titlenoun$ 
| 288 NEXT A 

218 REMark 


228 REMark Nationalities, national aj 


djectives and articles 
238 DATA "Australia", "Switzerland", " 
| Austria","Scotland", "Sweden" 


_| 248 DATA “Australian","Swiss","Austr | 
‘| 85@ NEXT A 


_|ian", "Scottish", "Swedish" 
258 DATA "an","a","an","a","a" 
268 RESTORE 248 

278 RAND=RND(1 TO 5) 

280 FOR A=1 TO RAND 

| 298 READ MainNatAd j$ 

388 NEXT A 

| 318 RESTORE 238 

320 FOR A=1 TO RAND 

330 READ MainNat$ 

340 NEXT A 

350 RESTORE 250 

348 FOR A=1 TO RAND 

378 READ MainNatArt$ 
‘|388 NEXT A 


| 398 RESTORE 249 


| 4@@ RAND=RND(1 TO 5) 

| 410 FOR A=1 TO RAND 
—|420 READ SecondNatAdj$ 
| 430 NEXT A 

448 RESTORE 258 

| 45@ FOR A=1 TO RAND 
468 READ SecondNatArt$ 


| 470 NEXT A 


1490 REMark Hero's names 


-|5@ DATA "Harry" ,"Edward","Bill","Th | 


feo", "Philip" 

__|510 RESTORE 500 
1528 RAND=RND(1 TO 5) 

1538 FOR A=1 TO RAND 


_|540 READ Heronanes 


So@ NEXT A 
(968 REMark 


1578 REMark Villain’s names 


_|580 DATA "Boris", "Ivan", "Sebastian", 
"Jules", "Kemal " 

590 RESTORE 58d 

{608 RAND=RND(1 TO 5) 

(|618 FOR A=1 TO RAND 

1628 READ Vilname$ 

(| 638 NEXT A 


668 DATA "Sylvia","Joanna", "Victoria 


|","Alicia","Fennella” 
| 678 RESTORE 668 
| 688 RAND=RND(1 TO 5) 


698 FOR A=1 TO RAND 
708 READ Girlname$ 
718 NEXT A 


| 720 REMark 


73Q REMark Father's names 

748 DATA "Sir","Lord","Duke", "Earl", 
"Marqius" 

738 DATA "Beauchamp", "Montague", “Bod 
eley", "Mar joribanks", “Chol mondley" 


| 760 RESTORE 740 
| 778 RAND=RND(1 TO 5) 


788 FOR A=1 TO RAND 
798 READ Dadtitle$ 
800 NEXT A 

810 RESTORE 758 


828 RAND=RND(1 TO 5) 
838 FOR A=1 TO RAND 


840 READ Dadname$ 


868 Dadname$=Dadtitle$ & " " & Dadna 
me$ 
878 REMark 


| 888 REMark Locations,articles and pr 
|| epositions 


890 DATA "ski lodge", "chateau", "mans 


|| ion" "hospital", "beach" 


908 DATA wa", "a", "atohat ae 


1918 DATA "at", "at", "at","in","on" 

| 928 RESTORE 890 

| 930 RAND=RND(1 TO 5) 

1948 IF RAND=5 AND MainNat$="Switzerl 
| and" THEN 60 TO 938 

|| 958 IF RAND=2 AND MainNat$="Australi 
|a" THEN GO TO 930 

| 968 FOR A=1 TO RAND 

|978 READ MainLoc$ 

| 988 NEXT A 

1990 RESTORE 920 

| 1808 FOR A=1 TO RAND 


1018 READ MainLocArt$ 


| 1828 NEXT A 

/|1038 RESTORE 918 

| 1048 FOR A=1 TO RAND 

| 1858 READ MainLocPrep$ 


1068 NEXT A 

1878 RAND=RND(1 TO 5) 

1088 RESTORE 898 

1078 IF RAND=5 AND SecondNatAdj$="Sw 


|| iss" THEN GO TO 1870 


1108 IF RAND=2 AND SecondNatAdj$="Au 
stralian" THEN GO TO 1078 

1112 FOR A=1 TO RAND 

1128 READ SecondLoc$ 


}/1138 NEXT A 


1148 IF SecondNatAd j$=NainNatAdj$ AN 


|D SecondLoc$=MainLoc$ THEN 60 TO 107 


') 
1158 REMark 


| ee REMark Hero's profession, artic 
e 


1178 DATA "doctor", "struggling artis 
t","novelist","racing driver", “skier 


1180 DATA “a","a","a","a","a" 


1198 RAND=RND(1 TO 5) 

1208 RESTORE 1170 

1218 FOR A=1 TO RAND 

1228 READ Heroprof$ 

1238 NEXT A 

1248 RESTORE 118 

1258 FOR A=1 TO RAND 

1268 READ HeroprofArt$ 

1278 NEXT A 

1288 Heroprof$=HeroprofArt$ & “ " & 
Her oprof$ 

1298 REMark 

1308 REMark Girl's profession, artic 
le 

13}@ DATA “secretary”, "student", "nur 


|se“, "tennis player","fashion designe 


r" 
1328 DATA Desh St gat mae eae 


11338 RAND=RND(1 TO 5) 
1348 RESTORE 1312 


135@ FOR A=1 TO RAND 

1368 READ Girlprof$ 

1378 NEXT A 

1388 RESTORE 1320 

1398 FOR A=1 TO RAND 

1408 READ GirlprofArts 

1418 NEXT A 

1428 Girlprof$=GirlprofArt$ & " " & 
Girlprof$ 

1438 REMark 

1440 REMark Villian‘s profession, ar 
ticle, adjective 

1458 DATA "villanous","scheming", “si 
nister","French","American” — 

1448 DATA “any doacday ay at 


11478 DATA “tycoon”, "millionaire", “di 


amond s@uggler", "executive", 
r 

1488 RAND=RND(1 TO 5) 

1498 RESTORE 1452 

1508 FOR A=1 TO RAND 

1518 READ VilAdj$ 


gangste 


{1528 NEXT A 


1538 RESTORE 1448 

1548 FOR A=1 TO RAND 

1558 READ VilAdjArts 

1568 NEXT A 

1578 RAND=RND(1 TO 5) 

15@@ RESTORE 1478 

1598 FOR A=1 TO RAND 

1688 READ Vilprof$ 

1618 NEXT A 

1420 Vilprof$=VilAdjart$ & " " & Vil 
Adj$ & “ " & Vilprof$ 

1630 REMark 

1648 REMark Verb at end 

1658 DATA “triumphs” ,"conquers all", 


“breaks all barriers","unites them", | 


“moves the earth" 
1468 RAND=RND(1 TO 5) 


1678 RESTORE 1658 
1688 FOR A=1 TO RAND 


1698 READ EndVerb$ 
1708 NEXT A 
1718 REMark 


‘11778 FOR A=1 TO RAND 


‘| 1808 RAND=RND(1 TO 5) 


11820 FOR A=1 TO RAND 
1838 READ HateAdis 


11878 REMark 
11880 REMark Now print the synopsis 


1898 REMark 


|1910 WINDOW 512,256,0,0 
11920 PAPER @ + CLS 


‘11968 PRINT 


| 1998 PRINT Heroname$;"," ' Heroprof$ | 
1y"," ' "and" ! Girlname$;"," ! Girlp 
|rof$;"," 

‘| 2080 PRINT "meet" ' MainLocPrep$ ! M 


| they" 


1720 REMark Verb, adjective of disli 


ke 

1730 DATA "loathe", "dislike","hate", 
"despise", "abhor" 

1748 DATA “very much","intensely","v 
ehemently","with all their hearts",” 
totally" 

1758 RAND=RND(1 TO 5) 

1768 RESTORE 1738 


1788 READ HateVerb$ 
1798 NEXT A 


1818 RESTORE 1748 


1840 NEXT A 
185@ REMark 
184@ RAND=RND(1 TO 2) 


1908 MODE 4 


1938 BORDER 25 

1948 PRINT Titlenoun$ ! MainLocPreps 
' "the" ' MainNatAdj# ! MainLoc$ 
1958 PRINT "by Q. L. Heartland" 


1978 PRINT "(Quill & Swoon MCMLXXXV) 


198 PRINT 


ainLocArt$ ! MainLoc$ ! "in" ! MainN 
at$;"_" 

2018 PRINT "They" ! HateVerb$ ! “eac 
h other" ! HateAdj$;"." 

2028 PRINT "But when" ! Heroname$ ! 
"saves" ! Girlname$ ' "from" ' Vilna 
neg;"," 

2038 PRINT Vilprof$;"," ! “they find 


2048 PRINT “love each other after al 
Moe 

2050 PRINT Dadname$;", father of "3 |. 
2068 IF RAND = 2 THEN PRINT Heroname 
$; : ELSE PRINT Girlnames; 

2878 PRINT ", refuses to let them ma 
AEs 

2088 PRINT "but they escape to" ' Se 
condNatArt$ ! SecondNatAdj$ ! Second 
Loc$;"," 

2098 PRINT "where their love finally 
" ! EndVerb$;"." 

2188 PRINT 

2118 PRINT 

2128 PRINT “Press <Fi> for the next 
thrilling installment... " 


2130 another=CODE ( INKEY$(-1)) 
2148 IF another=232 THEN GO TO 100 
2150 STOP 


Froggy — Part 2 


Tony Day 


For those who had the patience to 
type in Part 1 from our December ’85 
edition, here’s the concluding part. 
For some reason we called the last 
part number 2 in the listing, but the 
resulting files should be OK. 

Once you’ve typed in and run both 
parts (1 & 2), you should have two 
programs on microdrive called 
froggyl and froggy2. To run the 
whole program type in the following 
line: MODE 8:d=RESPR(15000): 
LBYTES mdv1_froggy1,d: 
LBYTES mdv1_froggy2,d+6500: 
CALLd 

Alternatively, you could enter the 
lines one by one as a ‘boot’ program 
and use that to run the two sections. 


100 REMark #### Part! QL Froggy #### 

110 REMark #### For QL UsersA Day #### 

120 DIM array(5):address=RESPR (4500) 

130 start=address:CLS:CLS£O:RESTORE :1in=1000 

140 READ nwords:PRINT lin 

150 IF nwords<=0 THEN PRINT*Load complete"sSBYTES adv2_froggyl 
Start 65003 STOP 

160 csum=0:FOR i=0 TO nwords-1:READ array(i)scsue=csuatarray (i 
DINEXT i 

170 READ csua2:IF csua<)csue2 THEN PRINT"Checksue error at lin 
e ";lin:PRINT"Correct checksua",csum:PRINT‘Line of data":FOR i 
20 TO nwords-{:PRINT,array(i);","s:NEXT isSTOP 

180 FOR i=0 TO nwords-1:POKE_W address,array(i):address=addres 
St2:NEXT i 

190 lin=lin#10:60 TO 140 

1000 DATA 6,24576, 2860, 18002, 20295, 18265, 11822,95820 
1010 DATA 6, 11843, 20304, 22866, 18759, 18514,8257, 100545 
1020 DATA 6,11859, 11844, 16729, 8241, 14648, 13568, 76889 
1030 DATA 6,21061 16708, 22875, 23387 , 23387, 19450, 126868 
1040 DATA 6,-12,8316,2,9772, 31241 ,4629,53948 

1050 DATA 6,-28100,54,18663,-1,24832,2192, 17640 

1060 DATA 6,19679,-1,22664,21133, 20941 ,-24,84392 

1070 DATA 6,20085, 23622, 21071 18247, 22876, 23622, 129523 
1080 DATA 6,21071, 18247, 22876, 16448, 16448, 16448, 111538 
1090 DATA 6, 16448, 16448, 16450, 22848, 16448, 21583, 110225 
1100 DATA 6, 20057, 16452, 16729, 16448, 16448, 16448, 102582 
W110 DATA 6, 16448, 16448, 14143, 15931, 16448, 24832, 104250 
1120 DATA 6,6276,19450,-62,31238,8316,2,65220 

1130 DATA 6, 11056, 31751 ,29184,4629,-28100,54, 48574 
1140 DATA 6,18663,-1,24832,2088,19679,-1,65260 

1150 DATA 6,22664,21133,20942,-24 ,-17860,6,46861 

1160 DATA 6,26118,-28164,0,1535,-11780,0,-12291 

1170 DATA 6,1504,20941,-50,20085,2, 14504, 56986 

1180 DATA 6,2,14504,0,2,26024, 18663,59195 

1190 DATA 6,-1,24832,6188,19962,-24,11452,62409 

1200 DATA 6,2,14504,11644,2,14504,4,40660 

1210 DATA 6,15740,0,8,11644,2,26024,53418 

1220 DATA 6,10,29184,30212,19962,460,8316 8144 

1230 DATA 6,2,4758,30740,4630,-28100,54, 12084 

1240 DATA 6,18663,~1,24832,1968,19679,-1, 65140 

1250 DATA 6,21128,18653,~-1,24832,1954, 19679, 86255 

1260 DATA 6,-1,22152,21134,20940,-38,-11780,52407 

1270 DATA 6,0, 1452,20939,-50,31241,8316,61898 

1280 DATA 6,2,27689,29224, 18663 ,-1,24832, 100409 

1290 DATA 6,1914,19679,-1,22664,20941,-16,65181 

1300 DATA 6,29184,6316,2,14888,31747, 31241, 115378 

1310 DATA 6,18663,-1,24832,1884,19679,-1,65056 

1320 DATA 6,22664,20993,20941 ,-18,-11780,0,52800 

1330 DATA 6,2392,20942,-30,19962,-192,11606,54680 

1340 DATA 6,4,29185, 18426, 446,9916,2305, 60282 

1350 DATA 6,0,17003,4,5953,6,6012,28978 
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1360 DATA 6,2,7,28689,20033,19962,-230 , 68463 

1370 DATA 6,-19908,64, 26368, 446, -19908, 16,-12922 

1380 DATA 6,26168, 21038, 8, 22678, 3118, 10,73020 

1390 DATA 6,8, 26368,404,3118,20,8,29926 

1400 DATA 6,26368,394,3118,30, 8, 26368, 56286 

1410 DATA 6,384,3118,40,8,26186,7548,37284 

1420 DATA 6,0,8,1174,0,7336,-19908,-11390 

1430 DATA 6.2.26168,21294 8.22934 ,3118,73524 

1440 DATA 6,9,8,26368,352,3118,19,29874 

1450 DATA 6,8,26368,342,3119,29,8,29873 

1460 DATA 6,26368,332,3118,255,8, 26124,56205 

1470 DATA 4,7549,39,8,1686,0, 7336, 14617 

1480 DATA 6,10838, 10350, 4, 10428,0,0,31620 

1490 DATA &,-9732,0,128,10428,0,0,824 

1500 DATA 6,10428,0,0,-9732,0,1792,2488 

1510 DATA 6,10428,0,0,-9732,0, 128,824 

1520 DATA 6,10428,0,0,15036,-21844, 15228, 18846 

1530 DATA 6,-21846,2,-9220,0,128, 15036, -15900 

1540 DATA 6,-21846, 15228, -21846,2,-9220, 0,-37682 

1550 DATA 4,1792,15036,-21046,15228,-21946,2,-11634 
1560 DATA 6,-9220,0,128,15036,-21846,15228,-674 

1570 DATA 6,-21846,2, 13372, 15000, 20938, -2,27464 

1580 DATA 6,24576,-296, 18002,20295, 18265, 11822, 92664 
1590 DATA 6,11843, 20304, 22866, 18759, 185168257, 100545 
1600 DATA 6,11859, 11844, 16729, 8241, 14648, 13568, 76889 
1610 DATA 6,16448, 20037, 22336, 21583, 20544, 21573, 122521 
1620 DATA 6,20032, 21315, 20306, 17728, 16448, 1478, 112307 
1630 DATA 6,24158,24158, 24158, 24158, 24158, 24158, 144948 
1640 DATA 6,24158, 24158, 16440, 16448, 16448, 16448, 114108 
1450 DATA 6,16448, 16448, 16448, 16448, 16448, 14448, 98688 
1660 DATA 6,16448, 16453, 20052, 17746, 16473, 20309, 107481 
1670 DATA 6,21056,20033, 19781 , 16449, 21321, 20039, 118699 
1680 DATA 6,19525, 18004, 16446, 18759, 19516, 16449, 107719 
1690 DATA 6,20036, 16467, 20545, 17221 ,23296, 30728, 128293 
1700 DATA 6,9788,7,-24288, 20939, -2,20940, 27384 

1710 DATA 6,-12,19679,-1,20085,0,0,39751 

1720 DATA 6,0,0,0,0,0,0,0 

1730 DATA 6,1686,0,2392, 24576, -308,1174,29520 

1740 DATA 6,0,2392,24576,-318,8302,10,34962 

1750 DATA 6,21128,4454,8,19663,-1,24832, 69204 

1760 DATA 6,1350,19679,-1,22702,10,21038, 64778 

1770 DATA 6,9,13372,20000,20938,-2, 19450, 73747 

1780 DATA 6,28,30720,6190,9,21252,-9276, 48923 

1790 DATA 6,6785,3118, 10,9, 26504, 24576 61002 

1800 DATA 6,-384,0,2827,3084,3341,3598, 12466 

1810 DATA 6,3855, 19450, 954, 19962, 440, 18426,43107 

1820 DATA 6,566 ,-10244,0,144,30217,10773, 31456 

1830 DATA 6,11286,-17786, 28528, 24832,~778,9219,55301 
1840 DATA 6,10242,19962,428,-8708,0,32,21954 

1850 DATA 6,11430,4,8,22924,20940,-10,55498 

1860 DATA 6,11589,8,9291, 10091 ,18,36,31033 

1870 DATA 6,10091,22,40,10091,26,44,20314 

1880 DATA 6,10091,30,48, 14187, 34,52,24442 

1890 DATA 6,-26628,0,18, 20938, -38, 18938, 13228 

1900 DATA 6,844, 10048, 48, 14188, 4,52, 25204 

1910 DATA 6,18938,~130, 10068,36, 10092, 4,39008 

1920 DATA 6,40, 14108,8,44,24582, 22670, 61532 

1930 DATA 6,20939,-124, 20085, 4363,5903, 2585 53751 

1940 DATA 6,8207,7168,8316,2, 14380, 18663,56736 

1950 DATA 6,-1,24832,5900,19679,-1,29184,79593 

1960 DATA 6,30728,17402,-34,4625,21129,9288,83138 
1970 DATA 6,31247,9404,85,85,-10756,0,30045 

1980 DATA 6,128,20941,-14, 18663, -1,24832, 64549 

1990 DATA 6,1074,19679,-1,22664,31746, 10812,85974 
2000 DATA 6,0,-10536, 20941 ,-2,20942,-12, 31333 

2010 DATA 6,20940,-56,31754, 10812,0,-15536,47914 

2020 DATA 6,20941,-2,20942,-12, 20085, 2568 64522 

2030 DATA 6,0,-21846, 15420, -536,3,-22001 ,-28960 

2040 DATA 6,256,2568,0,-21846, 15420, 2560,-1042 

2050 DATA &,10,0,256,2569,0,-21946,-19012 

2060 DATA 6,-1281,256,-10421,9215,256,0514,-1659 

2070 DATA &,2,30620, 18938, 28,30720, 6164 86472 

2080 DATA 6,~11836,31242,12476,0,-11780,0,20102 

2090 DATA 6,128,20941,-12,20085,0, 14352, 55494 

2100 DATA 6,4096,0,0,0,0,0,409% 

2110 DATA 6,0,0,0,18663,-1,29185, 47847 

2120 DATA 6, 18426 ,-24,9916,2305,0,17003,47626 

2130 DATA 6,4,5953,6,6012,2,7,11984 

2140 DATA 6,28689, 20033,-19908,64,26332, 19679, 74889 
2150 DATA 6,-1,20085,24832, 5034, 17402, 106,47458 


2160 DATA 6,8316,2,6680, 29184, 30732, 29713, 104627 
2170 DATA 6,4625,18643,~1,24832,850, 19679, 68648 
2180 DATA 6,-1,21129,22664,20938,-20,-11780,52930 
2190 DATA 6,0, 1464,20940,-32,28672, 20085, 71129 
2200 DATA 6,0,1000,0,900,0,800,2700 

2210 DATA 6,0,700,0,600,0,500,1800 

2220 DATA 6,0,400,0,300,0,200, 900 

2230 DATA 6,0,100,0,0,0,0,100 

2240 DATA 6,0,0,0,0,2570,7705, 10275 

2250 DATA 6,6464,7695,6154, 7437 6428, 3869, 38249 
2260 DATA 6,2570,2570, 10280, 10280, 10280, 10280, 44260 
2270 DATA 6, 10280, 10280, 10280, 2570 ,2570, 2570, 38550 
2280 DATA 6,2570,2570, 2570 ,2570,2570, 2570, 15420 
2290 DATA 6,2570,4124,6417,4387,9509 9509, 36516 
2300 DATA 6,9509,0,256,0,4124, 6417,20306 

2310 DATA 644387 ,9509, 9509, 9509,0,9,32923 

2320 DATA 6,0,4124,6417,4387, 9509, 9509,33946 

2330 DATA 6,9509,0,8,0,4124,6417,20058 

2340 DATA 6,4387,9509,9509,9509,0,7,32921 

2350 DATA 6,0,4124,6417,4387 ,9509, 9509, 33946 

2360 DATA 6,9509,0,6,0,4124,6417, 20056 

2370 DATA 6,4387,9509,9509,9509,0,5,32919 

2380 DATA 60,4124, 64174387, 9509, 9509,33946 

2390 DATA 6,9509,0,4,0,4124,6417,20054 

2400 DATA 6,4387,9509, 9509, 9509,0,3,32917 

2410 DATA 60,4124, 6417 ,4387, 9509, 9509, 33946 

2420 DATA &,9509,0,2,0,4124, 6417, 20052 

2430 DATA 6,4387,9509, 9509, 9509,0,1,32915 

2440 DATA 6,0,0,0,0,0,0,0 

2450 DATA 6,0,0,0,0,0,0,0 

2440 DATA 6,0,0,0,0,0,0,0 

2470 DATA 6,0,0,0,0,0,0,0 

2480 DATA 6,0,0,0,0,0,0,0 
2490 DATA 6,0,0,0,0,0,0,0 
2500 DATA 6,0,0,0,0,0,0,0 

2510 DATA 6,0,0,0,0,0,0,0 

2520 DATA 6,0,0,0,18938,92,3116,22146 

2530 DATA 6,10,5,27914, 1068,10,5,29012 

2540 DATA 6,21036,4,3116,10,4,27914,52084 

2550 DATA 6,1068,10,4,21036,3,3116,25237 

2560 DATA 6,10,3,27914, 1068, 10,3, 29008 

2570 DATA 6,21036,2,3116,10,2,27914,52080 

2580 DATA 6,1068,10,2,21036,1,3116,25233 

2590 DATA 6,10,1,27912, 1048, 10,1 ,29002 

2600 DATA 6,21012,20085,0,0,0,0,41097 

2610 DATA 6,0,18463,~1,10874,2,32088,61628 

2620 DATA 6,31247,15036,0,21645,20941 ,-B, 8886! 

2630 DATA 6,30720,10938,42,6164,-18372, 1 ,37493 

2640 DATA 6,26394,21764,0316,2, 30681 , 18463, 105820 
2650 DATA 6,2176,24832, 2960, 19479,272, 20614, 70535 
2660 DATA 6,20940,-16,19679,-1,20085, 768, 61455 

2670 DATA 6,0,18938,840,6332,26,6524,32660 

2680 DATA 6,11,2,10620,2,26940,4,37579 

2690 DATA 6,10620,2,26940,8, 652411 ,44105 

2700 DATA 6,12,20085,7437,6428, 3850, 0,37812 

2710 DATA 6,0,0,2570, 2570, 2578, 4881 , 12599 

2720 DATA 6,4618,0,256,0,7699,5903, 18476 

2730 DATA 6,2602,10537, 10537, 10537, 10537, 10537,55287 
2740 DATA 6, 10537, 11018, 2570, 2570,2570,2570, 31835 
2750 DATA 6, 10537 10537 ,10537, 10537, 10539, 17402, 70089 
2760 DATA 6,-68,29723, 29184 ,8316,2,29064, 96221 

2770 DATA 6,4625,18663,-1,24832,130,19679,67928 
2780 DATA 6y-1,21129,22664, 20938, -20 28472, 93382 
2790 DATA &,20085,17402,-80,29184,29723,8316, 104430 
2800 DATA 6,2,30601 ,4625,18663,-1,24922, 78812 

2810 DATA 6,19679,-1,21129,22664 20938 ,-18,84391 
2820 DATA 6,28672, 20085,17402,~90,29705, 29184, 124958 
2830 DATA 6,8316,2,30636,4625,18663,-1,62241 

2840 DATA 6, 24884, 19679,-1 21129, 22664 ,20938, 109293 
2850 DATA 6,-18,28672, 20085, 17402,-304, 29701 , 95538 
2860 DATA 6,8316,2, 29088, 4625, 18663, -1,60693 

2870 DATA 6,24848,19679,-1,21129,22464 20938, 109257 
2880 DATA 6,-18,28672, 20085, 17402,8790,-15620, 59311 
2890 DATA 6,22,-11327,29706,4241 ,4457,1,27100 

2900 DATA 6,2,-11780,0,128,21641 20938, 30929 

2910 DATA 6,-18,28672, 20085, 18443, ~1 ,18938,86339 
2920 DATA 6, 7888, 19450, 7874, 19962,174, 7316 62664 
2930 DATA &,6804,31319, 21132, 6484-1, 20941 86479 
2940 DATA 6,-8,6485,-1,18938, 7944, 19450,52808 

2950 DATA 6,7844,19962,144,7314,6804 , 10812,52882 


2960 DATA 6,0,148,21132,6484,-1,20941 , 48704 

2970 DATA ,-8,6485,-1 18938, 8059, 19450, 52922 

2980 DATA 6,7810,19962,110,7316,4804,10812,52814 
2990 DATA ,0,242,21132,6484,-1,20941, 49818 

3000 DATA 6,-8,6485,~1 ,18938,8286, 19450, 53150 

3010 DATA 6,7776,19962,76,7316,4904, 10812,52746 
3020 DATA 6,0,22B,21132,6484,-1,20941 ,48784 

3030 DATA 6,~8,6485,-1,18938,8480, 19450, 53344 

3040 DATA 6,7742,19962,42, 7316 ,6804, 10812,52678 
3050 DATA 6,0,129,21132,6484,-1,20941 , 44685 

3060 DATA 6,-8,6485,-1,19679,-1, 20085, 4239 

3070 DATA 60,256, 256,256,256, 256, 1280 

3080 DATA 6,0,2,4,6,128,130,270 

3090 DATA 6,132,134, 256, 258,260,262, 1302 

3100 DATA 6,384,386 ,388,390,512, 24832, 26892 

3110 DATA 6,-234,18663,-1,8316,2,6282,33028 

3120 DATA 6,24832,160,8316,2,8436, 24932, 66578 

3130 DATA 6,184,8316,2,10378,24032, 140 43852 

3140 DATA 6,8316,2, 12532, 24832, 164 ,8316,54162 

3150 DATA 6,2,14474,24952,30720,19962,-100, 90010 
3160 DATA 6,6166,10874,2,6262, 24904, 30720, 78930 
3170 DATA 6,19962,-114 6166, 10874,2,8200, 45092 
3180 DATA 6, 24888, 30720,19962,-128,6166, 10876, 92484 
3190 DATA 6,2, 10358, 24872, 30720, 19942,-150,85764 
3200 DATA 6,6166, 10876, 2,12296,24856,30720,04916 
3210 DATA ,19962,-168, 6166, 10876, 2,14454, 51292 
3220 DATA 6, 24840, 19679,~1,28672, 20085, 18938, 112213 
3230 DATA 6, 6844, 18426,-184,-10300, 13843,~9789,, 18862 
3240 DATA 6,31247,14996,-9220,0,128,20620,57771 
3250 DATA 6,20941,-12, 20085, 10812, 0,13,51839 

3260 DATA 6,10300,0,54,12624,-2,21640, 44616 

3270 DATA 6,20940,-8,-11780,0,18,20941, 3081 

3280 DATA 6,-24,20085, 10812, 0,13, 10300, 41186 

3290 DATA ,0,54,12624,2,21896,20940,55516 

3300 DATA 6,-8,-11780,0,238,20941,-24, 9367 

3310 DATA ,20085,17914,3336,8316,2,2056,51709 
3320 DATA 6,31745,31245, 19450, 2298, 13330, -15108,82960 
3330 DATA 4,128,-9278,30735, 1204030209, 8341 ,72175 
3340 DATA 6,22664,22669,20939,-B,-11780,0,54484 
3350 DATA 6,120,20940,~20,8287,20616,21642, 71585 
3360 DATA 6,20941 ,~46,-11780,0,1936,20942,31993 
3370 DATA 6,-58,20085,0,2816,2, 26988, 49733 

3380 DATA 6,2,26888, 2816, 18426,9190,17914, 75236 
3390 DATA 6,7324,10300,0,861,5778, 21130, 45393 

3400 DATA 6,21131,20940,-8,18663,~1, 18643, 79388 
3410 DATA 6,-1,24832,-2754, 24832, -1562, 24832, 70179 
3420 DATA 6,-1520,24832,~1570, 19679, 119450, 60870 
3430 DATA 6,-914,4844,3,19450,-1408, 15036, 30811 
3440 DATA 6,0, 19450,5986,31237,6844,0,43517 

3450 DATA 6,23693, 20941 ,-B, 19450, -1024, 10940, 73992 
3460 DATA 6,0,0,15228,0,4,11132, 26364 

3470 DATA ,0,0,6,19450,-2010,15036,32482 

3480 DATA 6,0,24832,3440,24832, 3464, 24032, 81400 
3490 DATA 63752, 19450,-988, 6844, 0, 19450, 48508 
3500 DATA 6,-1684,3157,1,26136, 18663, -1 ,46272 

3510 DATA 6,31237,19450,5902,4844, 1 ,23693,87127 
3520 DATA 620941 ,-B,19679,-1, 18663, -1,59273 

3530 DATA 6,24852,-928,24832.-268,24832.-820.7240 
3540 DATA 6, 17914, 9004, 18426, 7138, 10300, 0, 62782 
3550 DATA ,861,5778, 21130, 21131 ,20940,-8, 69832 
3540 DATA 6,19679,-1,24832,3266, 18663, -1,66438 
3570 DATA 6,24832,~1080,24832,-940, 24832, ~904, 71570 
3580 DATA 6,24832,-1164,19450,-250,8277, 24832, 75977 
3590 DATA 4, 1834, 19679,-1 ,18426,-632, 3091 , 42399 
3400 DATA 6,0, 26370, 21267, 19450,-278,6997 73806 
3410 DATA 6,10,11117,2,6,3093,2,14230 

3420 DATA 6,24368,1494,3093, 4, 26348, 1486, 50813 
3430 DATA 6,3093,1,26348,1456,3093,3,34014 

3640 DATA 6,26368, 1448, 3093,5, 26348, 1440 98722 
3450 DATA 6, 18426, 1420,29185, 9916, 2305,0,61252 
3460 DATA 6,17003,4,5953,6,6012,2, 28980 

3470 DATA 6,7,28689, 20033, 19450,-364, 18426 86241 
3680 DATA 6,-732,2049,3,26380, 18643,~1,46362 

3490 DATA 6,24832,-1892,19679,-1,2049,7, 44674 

3700 DATA 6,26112,1244,2049, 2, 26112, 126656785 
3710 DATA 6,2049,1,26112,1300,2049,4,31515 

3720 DATA 6,26112,1314,28672, 19450 ,-416,8277,83409 
3730 DATA &,19938,-426,3220,2,6408,26410,54552 
3740 DATA 6,3220,2,8560,26402,3220,2,41406 

3750 DATA 6, 10504, 26394 ,3220,2, 12656, 26386 79162 
3760 DATA 6,3220,2, 14600, 26378, 18426,-838, 61788 
3770 DATA &,3091,0,24480, 18938, -476,3220 51253 
3780 DATA 6,2,6408, 26368, 1320,3220,2,37320 

3790 DATA 6,8560, 26348, 1338,3220,2, 1050449992 
3800 DATA 626368, 1300,3220,2, 12656, 26368, 69914 
3810 DATA 6,1318,3220,2, 14600, 26368, 1280, 46788 
3820 DATA 6y 18938, ~526,3092, 1, 26368, 1086, 48959 
3830 DATA 6,3092,3, 26368, 1078, 3092,5,33438 

3840 DATA 6,26368, 1070,3092, 2, 26348, 1056 ,57956 
3850 DATA 6,3092,4, 24368, 1048, 24832, 1594 ,56938 
3860 DATA 6,19450,-582,8277, 24832, 1504 24832, 78313 
3870 DATA 63600 ,24832,-918, 20081 , 19450,-602, 66443 


3880 DATA 6, 10325,-9732,0, 640, 19450,-616, 20067 
3890 DATA 6,6145,10828,-18372,1,26368,446, 25434 
3900 DATA 6,-18372,3,26368, 438 ,-18372,5,-9930 

3910 DATA &,26348,430,-18372,2,26368,444,35240 
3920 DATA 6,-18372,4,26368, 436 ,-18372,0,-9936 

3930 DATA 4,26368,452,-18372,7, 26368 642, 35445 
3940 DATA 6,-18372,8, 26368, 634,-18372,9,-9725 

3950 DATA 6,26348,624,-18372,10,26368,418, 359418 
3960 DATA 6,-18372,6,26368, 644, 18663,~1,27308 

3970 DATA 6,24832,-1736,24832,-1344, 19450, -2612,63422 
3980 DATA 6,19962,-1648,18938,-1580,3093,0,38765 
3990 DATA 6,26138,3222,0,1500,27922, 6844 , 65624 
4000 DATA 6,1,21012,18643,~1,24832,-1676,62831 
4010 DATA 6,19679,-1,3117,0,1,26140, 48936 

4020 DATA 6,3222,0,5000,27924,21012,7036,64194 
4030 DATA &,1,1,18663,~1,24832,-1712, 41784 

4040 DATA 6,19679,-1, 19679, -1,19450,-1654,57152 
4050 DATA ,3093,6,26170,19450,-2352, 21077 67444 
4060 DATA 6,30730,10812,0,-10536, 20941 ,~2,51945 
4070 DATA 6,20940,-12,18443,-1,24832,2726 67148 
4080 DATA 6,24832,-3652,30739, 10812, 0,-10536,52195 
4090 DATA 6,20941 ,-2,20940,-12,19679,-1, 61545 

4100 DATA 6,24576,-744, 18938, -2408,21292, 1 61655 
4110 DATA 6,3116,0,1,26152, 6508, 2, 35779 

A120 DATA 6,1,21780, 18643, -1,24832,-2472, 62803 
4130 DATA 6, 18426-2524 28689, 20033, 19679, -1 84302 
A140 DATA 6,19450,-2452,3093,0,26368, 458, 46917 
4150 DATA 6,24576,-648,19679,-1 19450,-1788,61248 
4160 DATA 6,3093,0,26172,18463,-1, 18643, 66590 

4170 DATA 6,-1,24832,-1978, 19679, -1,24832, 67343 
4180 DATA 6,-2684, 18663,~1,24832,-2850, 18938, 56898 
4190 DATA 6,-2278,19450,-1788, 11116,12,22, 26534 
4200 DATA 6, 15212, 16,26, 19679,-1, 1967954611 

4210 DATA 6,-1,24576,-970, 28672, 2918429696, 111157 
4220 DATA 630208, 30720,31232,31744,11900,0, 135804 
4230 DATA 6,0,11388,0,0,10876,0,22264 

4240 DATA 6,0,9340,0,0,9852,0,19192 

4250 DATA 6,0,8828,0,0,8316,0,17144 

4260 DATA 6,0, 10364, 0,0,24576,-842,34098 

4270 DATA 6,21645,3156,10816,24348,304, 31597, 65446 
4280 DATA ,~22527,26368, 296, 24576, -304, 22648 50997 
4290 DATA 6,23693,3156, 10814, 26368, 280, 3157,47470 
4300 DATA 6,-22527 26368, 272, 24576,-408, 2369351974 
4310 DATA 6,3154,85,26112,258,3157,85,32853 

4320 DATA 6,26112,250, 19450,-1142,8314,2,52988 
4330 DATA &,3344,3093,4,26368, 428, 9316, 41553 

4340 DATA 6,2,3360,3093,12,26368, 414, 33249 

4350 DATA 6,8314,2,3376,3093,20, 2636841175 

4360 DATA 6,400,8316,2,3400, 3093, 32, 15243 

4370 DATA 6,26568,386,8316,2,3416,3093, 41581 

4380 DATA 6,40,26368,372,8316,2,3432, 38530 

4390 DATA 6,3093,48, 26368, 358, 24576, -518,53925 
4400 DATA 6, 18643,~1,18938,-2768, 21780, 18663, 75275 
4410 DATA 6,-1,24832,-2814, 19479, ~1, 18426, 60121 
4420 DATA 6,~2180,22059,5, 18426 ,-2182,22163,58291 
4430 DATA 6, 18443 ,-1,24832,-2292,24032,-1900 64134 
4440 DATA 6,10300,0, 10000, 20940,-2, 19679, 60917 
4450 DATA 6,-1,18938,-2826 , 3092, 0, 26300, 45503 

4460 DATA 6,6332,56, 6508,2,1,19679,32578 

4470 DATA 6,-1,20085, 17914, 478,31279, 13500, 83455 
4480 DATA 6,0,21642, 20941 ,-8,23693,3156,69424 

4490 DATA 6,0,26156,3157,0,26150, 24576 80039 

4500 DATA 6,-640,17914,644,31279, 13500-21846, 40851 
4510 DATA 6,21642, 20941 ,-8, 23493 ,3154,-21844 47578 
4520 DATA 6,26122,3157,-21B46, 26116, 24576,-674 57451 
4530 DATA 6,19450,-2236,18663,~1, 18426 ,-2980,51322 
4540 DATA 6,28689, 20033, 19679,-1,21269,30724, 120393 
4550 DATA 4, 10812,0,-15536, 20941 ,-2, 20940, 37155 
4560 DATA 6,-12,17402,~1424,8273,10312,17402,51953 
4570 DATA 6,-1434,6161 ,-18372,1, 26114 21896, 34346 
4580 DATA 6,-18372,3,26114, 218%, -18372,5, 11274 
4590 DATA 6,26114,21896,-18372,2, 26114, 21640, 77394 
4400 DATA 6,-18372,4,26114,21640,-17924,2, 11464 
4410 DATA 6,6408,26426,-17924,2, 8560, 26436 49908 
4620 DATA 6,-17924,2,10504,26410,-17924, 2, 1070 
4430 DATA 6,12656,26420,-17924,2, 14600, 2639442148 
4G40 DATA 6,24832,654, 19450, -3056, 684456, 48780 
4450 DATA ,7021,2,1,24576,-604, 2457655572 

4440 DATA 64-608, 18938,452,31755, 14524,515, 65576 
4470 DATA 6,20620,20942,-8, 24788, 18938,434,05714 
4480 DATA 6,23692,31755, 14524, -32576, 20620,20942, 78957 
4490 DATA 6,-8,24768, 18663, -1,24832,618, 68872 

4700 DATA 6, 19450,-2438, 21013, 19450,-2524, 23085, 78036 
4710 DATA 6,4,1709,0,50,6,19679,21448 

4720 DATA 6,-1,24832,-388, 24576 ,~688,21640,69971 
4730 DATA 6,24576,-1050, 21896 ,24576,-1056, 3117, 72059 
4740 DATA 6,10,2,28160,-1250,21037,2,47961 

4750 DATA &,1709,0,2048,4,5820,2, 9583 

4760 DATA 6,24576,~1246,3117,1,2,27904 54354 

4770 DATA 4,-1272,21293,2,1197,0,2048, 23268 

4780 DATA 6,4,5820,2,18938,-2620,21036,43180 

4790 DATA 6,5,21164,6,24576,-1288,3093 47556 


4800 DATA 6,2,27904,-1304,21781,22957 4, 71344 

4810 DATA 6,5820,2,24576,-1310,3093,50,32231 

4820 DATA 6,28160,-1318, 21525, 22701 ,4,5820, 76892 

4830 DATA 6,2,24576,-1332,0,0,0,23246 

4840 DATA 6,0,0,0,0,0,3117,3117 

4850 DATA &,1,-2,27904,-1446,21293,-2,47748 

4860 DATA 6,21933,2, 24576 ,-1458,3117, 51,4821 

4870 DATA 6,-2,28140,-1468,21037,-2,21677,69402 

4880 DATA 6,2,24576,~1480,18643,~1,19450, 61210 

4890 DATA 6, 180,30731,15036,515, 20621 ,20940,88023 

4900 DATA 6,-8,19679,-1,24576,-1304, 18643, 61605 

4910 DATA 6,-1,19450,152,30731,,15228,-32576, 32984 

4920 DATA 6,6,20621,20940,~10,19679,-1 61235 

4930 DATA 6,24576,-1334 18002, 20295, 18245, 11822, 91626 

A940 DATA 6, 11843, 20304 , 22866, 18759, 18516 8257, 100545 

4950 DATA 6, 11059, 11844, 16729,8241 , 14648, 13548, 76889 

4960 DATA 6,255,-32196,-32196, 255, 764, 2800 ,-60318 

4970 DATA 6,-24561 ,-32705, 764, 2800,-24561 ,-32705,-110968 

4980 DATA 6,255,-22016,-22016, 255,255, 10944,-32323 

4990 DATA 6,-22525, 255,255, 10944-22525, 255, -33341 

5000 DATA 6,255,-22016,-22016,255,764,-22525,-65283 

5010 DATA 6, 10944 ,-32705,764,-32705, 764 ,-32705 , -@5643 

5020 DATA 6,255,-24561, 2800, 255,255, 10435, -10561 

5030 DATA 6, 10435, 255, 255,-24541 280,255, -10541 

5040 DATA 6,0,0,0,0,0,0,0 

5050 DATA 6,0,0,0,0,0,0,0 

5060 DATA 6,0,0,0,0,0,0,0 

5070 DATA 6,0,0,0,0,0,0,0 

5080 DATA 6,0,0,0,0,9,0,0 
6,0,0,0,0,0,0,0 

0,0,0,0,0,0,0 


5090 DATA &,0,0,0,0,0, 
5100 DATA 6,0,0,0,0,0,0, 

5110 DATA 6,0,0,0,0,0,0,0 

5120 DATA 6,31243,17402,-100, 9800, 30721 885197917 

5130 DATA 6,22601,22603,20940,-8,-10244,0,55892 

5140 DATA 6,120, 20941 ,-20,17402,-224,31243, 69462 

5150 DATA 6,30723,4425,5136,-31743,4226, 21128, 34095 

5160 DATA 6,21129,4625,5136, -15870, 4225, 21128, 40373 

5170 DATA 6,21129,20940,-26,-11780,0,120,30383 

5180 DATA 6,20941,-38, 28672, 20085, 31243, 17402, 118305 

5190 DATA 6,-180,30721 ,8337,22601 ,22600, 20940, 105019 

5200 DATA 6,-8,-11780,0, 120, 20941 ,-20, 9253 

5210 DATA 6,28672, 20085, 17402,1110,31765,31233, 130267 

5220 DATA 6,8337,22665,22664, 20941 ,-B,-11780,62819 

5230 DATA &,0,120,20942,-20, 28472, 20085, 69799 

5240 DATA 6,-22016,-22016,-22016,-22016,-22016,-22016 132096 
5250 DATA 4,-22016,-22014,-22008,-21984,-22014,-21888, 131926 
5260 DATA 6,-22016,-22016,-22016,-22016,-22016,-22016,-132096 
5270 DATA 6,-21984,-22016,-22016,-22016,-22016,~22016,-132064 
5280 DATA 6,-22016,-21888,-22016,-22016,-22016,-22016,-131968 
5290 DATA 6,-21988,-22008,-22014 ,-22016,-22014,-22016,-131958 
5300 DATA 6,-22008,-22008,-22016,-22015,-22016 ,-22016,-132079 
5310 DATA 6,-22014,-22523,-22016 ,-21888,-22016,-22395,-132852 
5320 DATA 6,-22016,-22016,-22016 ,-22523 ,-22016,-22008 ,-132595 
5330 DATA &,-22008,-22523,-22008,-22014 ,-22018,-22523,-133094 
5340 DATA 6,-22016,-22016,-22016,-22523,-22016,-22016,-132603 
5350 DATA 6,-22016,-22016,-22016,-21888, -22008, -22008, ~131952 
5360 DATA 6,-22016,-22016,-22016,-22016,-21984,-21984,,-132032 
5370 DATA 6,-22016,-22016,-22016,-22016,-22014,-22008,~132088 
5380 DATA ,-22016,-22016,-22016,-22016,-2201b,-22016,-1320%6 
5390 DATA ,-22008,-22014,-22008,-22014 ,-22014,-22016,-132080 
5400 DATA 6,-22016,-22008,-22014,-22016,-21952,-22016 ,-132022 
5410 DATA 6,-22016,-22015,10832,-22016 ,-22016,-22523 ,-99754 
5420 DATA 6,10832,-22016,-22016,-22523, 10832-22008, -66899 
5430 DATA 6,-22016,-22523,10832,-22014,-22016,-22523,-100262 
5440 DATA 6,10832,-21888,-22008, -22523 , 10832, -22016,-66771 
5450 DATA 6,-22014,-22523,-22016,-22016,-22016,-22016 ,-132603 
5460 DATA 6,-22016,-21888,-22008, -22008,-22016,-22016,-131952 
5470 DATA 6,-22016,-22014,-21984,-21984,-22016,-22016,-132032 
5480 DATA 6,-22016,-22016,-22016,-22008,-22016,-22016 ,-132088 
5490 DATA 6,-22016,-22016,-22016,-22016,-22008,-22014,-132088 
5500 DATA 6,-22008,~22016,-22016,-22016,-22016,-22008, ~132080 
5510 DATA 6,-22014,-22016,-21952,-22016,-22016,-22016,-132030 
5520 DATA 6, 10832, -22016,-22016,-22008, 10832,-22016,-66392 
5530 DATA 6,-22014,-22014,10832,-22008 ,-22014,-22016,-99240 
5540 DATA 6,10832,-22016,-22016,-22016, 10832, -21888, -66272 
5550 DATA &,-22008,-22016,10832,-22016 ,-22016,-22016,-99240 
5540 DATA 6,-22016,-22016,-22016,-22016,-22014,-22016,-132096 
5570 DATA 6,-22016,-22014,-22008,-21984,-22016, 21888, -131926 
5580 DATA 6,-22016,-22016,-22016,-22016,-22016,-22016,-1320%6 
5590 DATA 6,-21984,-22016,-22016,-22016,-22016,-22016,-132064 
5600 DATA 6,-22016,-21888,-22016,-22016,-22016,-22016,-131968 
5610 DATA &,-21888,-22008,-21931 ,-21931 ,-21931 ,-21931 131420 
5620 DATA 6,85,85,85,85,85,85,510 

5630 DATA 6,85,85,85,85,85,85, 510 

5640 DATA 6,85,85,85,85,85,85,510 

5450 DATA 6,85,85,85,85,85,85,510 

5460 DATA 6.85.95.85.85.-22016.-22016,-43692 

5470 DATA 6,-22016,-22523,-22014 21888, -22008 ,-22523 ,-132974 
5680 DATA 6,-21984,-22016,-22016,-22523 ,-22016 ,-21984 ,-132539 
5490 DATA 6,-22016,-22523,-22016 ,-22016,-22016 ,-22523,-133110 
5700 DATA 6,-22016,-22016,-22016,-22523 ,-22014,-22016 132601 
5710 DATA 6,-22008,-22523,-22016,-22014,-22016 ,-22523 ,-133102 
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5720 DATA 6,-22016,-22008,-22014,-22523 ,-22016,-22016 ,-132593 
5730 DATA 6,-22014,-22523,~22016,-22016,-22016,-22523,-133110 
5740 DATA 6,-22016,-22016,-22016,-24555, ~22008,-22008,-134619 
5750 DATA 6,-22016 ,-24555,-22016,-22016,-22008 ,-32683,-145294 
5760 DATA 6,-22016,-22016,-22011,05,-21931 ,-21931 ,-109820 
5770 DATA 6,-24491 ,85,85,85,05,85,-24066 

5780 DATA 6,85,85,05,85,85,85,510 

5790 DATA 6,85,85,85,85,85, 85,510 

5800 DATA 6,85,85,05,85,85,85,510 

5810 DATA 6,85,05,85,85,85,85,510 

5820 DATA 6,85,85,85,85,85,85,510 

5830 DATA 6,85,85,85,85,85,05,510 

5040 DATA 6,85,85,05,85,85,85,510 

5850 DATA 6,85,85,05,85,85,85,510 

5860 DATA 6,85,85,85,85,85,85,510 

5870 DATA 6,85,85,85,95,85,85, 510 

5880 DATA 6,10832,-22016,-22016,-22523 ,10832,-2188B, -64779 
5890 DATA 6,-22008,-22523,10832,-22016 ,-22016,-22523 ,-100254 
5900 DATA 6, 10832, -21984,-22016, -22523 ,10832,-22016,-66875 
5910 DATA 6,-22016,-22523, 10832,-22014, -22016,-22523 ,-100262 
5920 DATA 6,10834,-22014 -22008, -22523 ,10832,-22016,-66897 
5930 DATA 4,-22014,-22523, 10832,-22008 ,-22014, -22523 ,-100252 
5940 DATA 6,10832,-22014,-22016,-22523, 10832,~22016,-66907 


6090 DATA 6,-21931,-21931,0,3,1,3,-43855 

6100 DATA 6,1,3,2,0,3,1,10 

S110 DATA 6,3,1,3,2,4,5)18 

6120 DATA 6,6,5,6,5,7,4,33 

6130 DATA 6,5,6,5,6,5,7,34 

6140 DATA 6,85,-22016,-22016,85,80,-21824,-65606 

4150 DATA 4,-22013,5,2639, 10800-22516 ,-24335,-55420 

6140 DATA 6,10879,-30004,-24013,-22275, 10364, 2572, -52477 

6170 DATA 6,-24528, 10301 ,-24528, 2572, -24528, 2572, -58139 

6180 DATA 6,-24528,2572,-24528, 2572, -22016,-22016, -B7944 

6190 DATA 6,-22016,-22016,-21764 ,-22016,-22016,-21953,-131781 
6200 DATA 6,-21761 ,-21761 ,-21761 21761 ,-21953 ,-21761 ,-130758 
6210 DATA &,-21761 ,-21764,-22001 ,-21761 ,-21761 ,-21776,-130824 
6220 DATA 6,-22013,-21761 ,-21761 ,-21824,-21776,-21761 ,-130896 
6230 DATA 6,-21761 ,-22001 ,-21764,-21761 ,-21761 ,-21953,-131001 
6240 DATA 6,-21761 ,-21953,-21764,-21761 ,-21761 ,-21824,-130824 
4250 DATA 6,-22013,-21761,-21953,-21776,-22001 -21764,-131268 
6260 DATA 6,~22001 -21764,-21953,-21776,-21761 ,-21764,-131019 
4270 DATA 6,-21953,-2176! ,-21761 ,-32555,599,-21761 ,-119192 
4280 DATA 6,85,85,85,85,8316,2,8658 

4290 DATA 6,1928,8828, 2, 28680, 30775, 12988, 83201 

6300 DATA 6,-21761 412476,-21761 ,21577, 21576, 20940, 33047 

6310 DATA 6,-14,8316,2,1926,8828, 2, 19060 


Pentathlete 


A Didcock 


At the risk of repeating ourselves 
(this is turning out to be a bit of an 
epic), we'll have one final attempt at 
putting the record straight. 

The November listing of Pent- 
athlete is correct, albeit a little con- 
fused. What happened is that we 
included a set-up screen within the 
listing that is not needed for running 
the game. 

So, if you’ve typed in lines 1-32180, 
all you need to do is delete two seg- 
ments for the program to run. These 


are at the beginning and end of the 
listing, that is; lines 1, 3, 4,5, 6, 7 and 
all lines from 31999 to the end. 

The final program should begin 
with 10 hiscore = 0 and end with 
30000 DATA 5,1,6,4,3,2. Hopefully 
this ends the Pentathlete saga — 
apologies for the muddle and 
December’s ‘half-attempt’ to correct 
it (which is best ignored). We hope 
you can all now enjoy the game. 


5950 DATA 6,-22016,-22523,2644,-22016,-22016,-24555,-110482 
5960 DATA 6,2644,-22008,-22016,-24555,597,-22016,-87354 
5970 DATA 6,-22008,-32683,85,-21936,-22011,85,-98469 

5980 DATA 6,85,2645,-24491 ,85, 10832-22016 ,-32860 

5990 DATA 6,-22016,-22016,10832,-22008, -22008, -22014 ,-99232 
6000 DATA 6,10832,-22016,-22016,-22016,10832,-21984 , -66368 
6010 DATA 6,-22016,-22016,10832,-22016,-22016,-22016,-99248 
6020 DATA 6,10832,-22016,-22016,-22016, 10834 ,-22016,-66378 
6030 DATA 6,-22008,-22016,10832,-22016,-22016,-22016,-99240 
6040 DATA 6,10832,-22008,-22014,-22016, 10832,-22016,-66390 
6050 DATA 6,-22016,-22016, 10832, -22016,-22016,-22016,-99248 
4060 DATA 6,2644,-22016,-22016,-22016, 2644 ,-22008, -82768 
4070 DATA 6,-22016,-22016,597,-22016,-22008,-22016,-109475 
6080 DATA 6,85,-21936,-22016,-22016 85,2645, -63153 


6320 DATA 6,2040,9788,0,209,12476,515, 25028 

6330 DATA 6,12988,-32576,-11268,0,128,-11780,-42508 
6340 DATA 6,0,128, 20939 ,-22, 28672, 20085, 69802 

6350 DATA 6,8316,2,0,10300,0,8192,26810 

6360 DATA 6,8380,0,0,22600,20940,-10,51910 

4370 DATA 6,28672,20085,8316,2, 2056, 30831 ,89962 
6380 DATA 6,30235,8380,85,85,22664, 20939, 82388 
6390 DATA 6,-10,-11780,0,16,20940,-22, 9144 

6400 DATA 6,28672,20085,-21846,-21846,-21846,-21846 ,-38627 
6410 DATA 1,-21846,-21846 

6420 DATA 1,-21846,-21846 

6430 DATA 1,-21846,-21846 

6440 DATA 1,-21846,-21846 

6450 DATA -1 


* *« * BYTEBACK SOFTWARE x x * 


BJ THE RETURN ........... £11.50 HOPPER £12.50 = SUPERFORTH £24.00 


FAST DELIVERY OF QL 
DISC DRIVES 


Cumana 3.5” 1 Mbyte floppy disc drives, internal power supply, complete with 
disc interface, utilities, manual, and optional RAM on the interface card. 
INTERFACE SINGLE DUAL 
£211 £288 
£251 £328 


CUTHBERT IN SPACE ... £12.50 SUPER-ARCADIA £12.75 


£12.75 SUPER SPRITE GEN £19.50 


SUPERCHARGE £51.00 


Cumana 
Delta plus parallel printer interface .... 
Delta plus 128K RAM + printer interface . £321 £398 
PCML plus 256K RAM £361 £438 
We also supply the full range of Medic disc systems, call for availability 


TWO MICRODRIVE TOOLKITS 


Read and write microdive sectors from basic and assembly language 
programs. 


QL MDV EXTENSIONS TOOLKIT 

Adds six functions to Basic allowing read/write/verify of microdrive sectors, 
reading of medium names and “fingerprint” from sector headers, and includes 
a repeat format routine. An eight page manual explains the functions, details the 
microdrive format and uses example programs supplied on microdrive. 


QL MDV ASSEMBLY LANGUAGE TOOLKIT (Source Code) 

Over 1000 lines of fully commented assembly language source code to a set of 
routines equivalent to the above, but with some additions. An eight page 
manual explains microdrive format and how to implement a copy protection 
scheme as well as QDOS-like routine definitions. 


BOTH THE ABOVE TOOLKITS ON ONE MICRODRIVE 


CRAZY PAINTER £11.50 SUPER ASTROLOGER ... £19.00 


LANDS OF HAVOC ...... - £15.75 SUPER BACKGAMMON . £11.50 


£15.75 MATCH POINT HYPERDRIVE £12.75 


All prices include VAT & postage . . . phone for prices of other titles! 


£13.00 


For a speedy delivery (usually same day) send cheque/PO to: 


BYTEBACK 20 Spring Gardens, Newark, Notts NG24 4WW 
Telephone: NEWARK 79097 


BREAKTHROUGH SOFTWARE 


GREAT INNOVATIONS FOR THE QL AT SENSIBLE PRICES 
REAL WINDOWS!!! £6.50 inc cartridge & p&p 

Each Real Window is stored off screen. It can be swapped with the part of the screen it overwrites, altered and 
then swapped back again. Several windows can be overlapped and ‘shuffled’ onscreen. Makes professional 
Pull Down menus, possible as the screen is restored to its original state when the window is put away! Text 
and graphics are both handled! Real Windows are controlled from basic using only three commands (all 
machine code):- 
BREAKTHROUGH ON-LINE SUPERBASIC MANUAL £8.50 inc cartridge/p&p 
ss the F1 key and the screen you are working on (text, listing, graphics including multiple windows) is saved 
instantly! Enter a Superbasic Keyword and everything you want to know is displayed on screen. Flip between 
screens to check syntax etc. Contains ALL Superbasic commands and much more. Create your own help files 
with Quill. Includes instant recall of the last line typed (F5) for edit and re-entry. Essential for all new users of 
the QL. 
RECALL £6.50 inc cartridge & p&p 
Get back the last line that you typed at the touch of a key (as in archive), edit your errors and re-enter the line. 
Works from Basic or within any software. Save yourself the frustration of retyping long lines just because you 
typed a hyphen instead of an underline! How many times do you do that?! 
* %& FREE * * FREE * * FREE * * FREE PROGRAMS * * FREE x * FREE * * FREE x * 
* * *& * * 8 M/C BASIC COMMANDS + SCREEN DUMP FREE WITH ALL PURCHASES x * * * * 
GETN & GETS Allow you to edit variables on screen. MCUR Moves the cursor up down left or right. TAB Moves 
the cursor to the given column no (left or right). FONT Allows you to reset the font address. Makes user designed 
graphics possible. RMODE returns the current display mode. DUMP dumps 1 or more lines from the screen to 
the printer. BVAR returns address of Basic Variables. PLUS HI RES SCREEN DUMP to printer at the touch of a 
key. 


PRICES INCLUDE VAT AND DELIVERY 
OVERSEAS CUSTOMERS — WRITE FOR EXPORT TERMS 


57 REPTON DRIVE, HASLINGTON, 
CREWE CW1 1SA 
Telephone: CREWE (0270) 532301 


XQQMEWAFZ 


17 SHAFTESBURY WAY, ROYSTON, HERTS, SG8 9DE (0763) 45482 


54/QL User/January 1986 


EIDERSOFT DISK SYSTEMS 


Mitsubishi 
Slimline 


AVAILABLE NOW EX-STOCK 
= KY CREDIT CARDS 
= TEL: 0708 852647/851099 
IC Es alia 


=] 
VISA 


systems include ICE 
ROM software with 


‘QL BUSINESS PACKS. 


Special offers on disk business 


software for all Eidersoft disk 

customers eg. 

QSPELL 3.5” disk £19.95 

XPERT int. accounts £129.95 
2 SAVE £50! 


CHOice see our other 
advert. IF YOU 
ALREADY HAVE ICE 
WE WILL REFUND THE 
DIFFERENCE!! 


SYSTEM 1 tri 


fA0 ie 128K extra RAM/Disk 


interface. Parallel printer port. 
Inc VAT All accessories. Twin 720K 
3.5 inch disk drives as shown. _ 


SYSTEM 2 pcm 


F449 256K extra RAM/Disk 


interface. Toolkit commands. 
disk drives as shown. 


All accessories. Twin 3.5 inch 
IMPAACT 
SALES LEDGER 


i Many more special offers 


IMPAACT 
PURCHASE LEDGER 


* Add/change/endquiry * Add/change/enquire 
* Customer file * Suppliers file 
* Delivery address * Cash/cheque receipt 
* Cash/cheque receipt and matching 
and matching x* Record p.cash 
* Cash sales (shop) and purchases and refunds 
refunds * Invoice/credit note 
* Invoice/credit note entry 
production * Supplier outstanding 
* Statements invoices 
* Debtors report * Creditors report 
* Monthly transactions * Monthly transactions 
audit trial audit trial 
* Customer turnover rep. * Suppliers turnover 
* VAT report report 
* Analysis report by 


nominal codes 


IMPAACT IMPAACT 
NOMINAL LEDGER STOCK CONTROL 


* List accounts 

* Journal entries and 
listing 

* Trial balance 

* Profit and loss report 

* Balance sheet 

* Budget entry 

* Comparative budgets 

* Interface and update 
from sales & purchase 
ledgers ~ 


%* Add/change/enquire 

%* Record sales turnover 
rep. 

* Record purchases 
turnover rep. 

* Adjust stock level 

* Selling price list 

* Quantities on hand rep. 

* Stock valuation 

* Re-order level 

* FIFO turnover enq. 


Each module £49.95 + £1 P&P Total package £179.95 
+ £1.50 P&P. Microdrive 3.5” disk versions 
add £4 per module. 


Each module includes a full manual — Telephone support available 


Eidersoft reserve the right to alter prices and specifications without prior notice. 


Finish silk black/quad disks available (P.O.A.)/ single 
upgradable disk with any system deduct £50. 


SYSTEM 3 upGrapeE* 


f AQ Q 512K extra RAM/Disk 


interface. Toolkit commands. 
All accessories. Twin 3.5 inch 


disk drives as shown. 


“Factory upgraded to 640K — no soldering — includes Securicor collection and return. 


Disk/Software Telephone Support 
= Service P.O.A. 
DISK DRIVES DELIVERY 
SECURICOR £9 


Eidersoft are pleased to announce exclusive 
; distribution of the Xpert IMPAACT OL 
XPERT SOFTWARE integrated accounts system. 


At last a truly integrated QL accounts package that has 
all the features of packages costing 3 or 4 times the 
price! IMPAACT accounts includes invoicing/sales 
ledger — nominal ledger — purchase ledger and FIFO 
stock control. Each module is available separately or as 
a package. 

* * Fully approved by chartered accountants * * 
%* *& can be integrated to PSION packages * * 


K * 


Dealers please phone us for more information. 


Eidersoft, The Office, Hall Farm, North Ockendon, Upminster, 
Essex RM14 30H. 


Please supply the following items: — 


Disk:Systemill.ccc.c-csests este nse coc £409.00 + £9.00 P&P 
Disk System 2 .. .... £449.00 + £9.00 P&P 
Disk System 3.......... £499.00 + £9.00 P&P 
IMPAACT Sales Ledger ............. £49.95 + £1.00 P&P 
IMPAACT Purchase Ledger ........ £49.95 + £1.00 P&P 

LJ IMPAACT Nominal Ledger ......... £49.95 + £1.00 P&P 
IMPAACT Stock Control ............ £49.95 + £1.00 P&P 
IMPAACT Complete System ...... £179.95 + £1.50 P&P 

Nan O ae<tscai russe teacaneomnecaeae eecuace stwme naman iacaetuuntetser cee eea mente 

PACK OSS Us ete san sa onaccteemataa ich teers ane: ottoietidendesactaatearmteie 


*EUROPOST £2.00 WORLD £3.00 
Please deduct my Access/Visa/American Express 


Exp. date Pee 


PI6asSe SUPPL YVIMOLS EOL MatOMOhlen pisecus:acttme ns scuieaiclotts nat cfousinesbiasterelemreasieisicinantlontiaacisee'atisianieet ' 


QL BARGAINS 


* ALL PRICES INCLUDE VAT AND NEXT DAY DELIVERY BY SECURICOR * 
* OR FIRST CLASS POST « 
SORRY NO PERSONAL ASSISTANCE BETWEEN 22nd and 27th 


FULLY TESTED QL COMPUTER £199 
WITH VERSION 2.3 SOFTWARE 


PRINTER PRICES INCLUDE MIRACLE SYSTEM INTERFACE 
MANNESMANN TALLY MT80+ 

SEIKOSHA SP1000A OR SINCLAIR BADGED SERIAL . 

EPSON LX80 


Miracle Systems Parallel Interface 
Serial Cable 


* * BUDGET RAM & DISK UPGRADES x « 


* * *& *& EIDERSOFT ICE ROM — JUST £46 x x x & 
ACCESSORIES 
4 Microdrive Cartridges 
10 Cartridges with Transform Bo 
10 DS/DD 5.25” Disks 
Transform Box 
RIBBONS 
Brother M1009 
MT80 or Shinwa 
Quen Data 


Ram Upgrades 512K — Disk Drives 3.5 720 Formatted 
All Interfaces are Cumana 
STACKED DUAL DISK DRIVES + INTERFACE + EXPANDERAM £389 
STACKED DUAL DISK DRIVES + INTERFACE + INTERNAL RAM £399 
MIRACLE SYSTEMS 512K EXPANDERAM £119 
FULL INTERNAL RAM EXPANSION FROM 128K TO 640K £129 


Price including fast collection and return of QL 
OR INTERNAL EXPANSION BOARD DO IT YOURSELF £109 
SINGLE 3.5 DISK DRIVE + INTERFACE £199 
STACKED 3.5 DUAL DRIVES + INTERFACE £279 
10 QUALITY DS/DD 3.5 DISKS IN LIBRARY CASE £39 
PCML 256K DISK INTERFACE WITH DUAL DRIVES £449 


LANGUAGES BUSINESS 

METACOMCO ASSEMBLER TR SYSTEMS PAYROLL 
METACOMCO BCPL DECISION MAKER 
METACOMCO LISP PROJECT PLANNER 
METACOMCO PASCAL ENTREPENEUR 
METACOMCO ‘C’ QL HOME FINANCE (BUZZ) 
DIGITAL BASIC COMPILER TYPING TUTOR 


DIGITAL SUPER MONITOR 
TALENT CARTRIDGE DOCTOR 


EIDERSOFT QSPELL (CART) 
EIDERSOFT QSPELL (DISK) 


LEISURE 

TALENT ZKUL 

TALENT WEST 

TALENT GRAPHIQL 

ZAPPER WITH EAGLE 

QL SPRITE GENERATOR 

QL SUPERBACKGAMMON . BJ RETURNS 
PSION CHESS MATCH POINT 
HYPODRIVE 

DIGITAL REVERSI £11 =QL SUPER ARCADIA 
STEVE DAVIS SNOOKER EIDERSOFT SPOOK 
TALENT COSMOS 


MONITORS (CABLES INCLUDED) 
Microvitec Cub 1451/DQ3 Colour 


__ Microvitec Cub 1451/DQT3 with Swivel Stand 


Swivel Stand for Microvitec 
Philips V7001 18MHz Green (RECOMMENDED FOR THE QL) 
Swivel Stand for Philips Monitor 


3250 WATT MAINS FILTER 

* Provides four protected mains sockets with plug 

%* Avoid crashes and damage to the QL’s components 
%* 30db suppression 1MHz to 30MHz 

%* 130 joules spike suppression 


MIRACLE SYSTEMS MODAPTOR 
* — Link your QL to any modem with an RS232C socket 
*  Prestel and Bulletin Board software included 


QUICKSHOT Il JOYSTICK WITH ADAPTOR 
QL JOYSTICK ADAPTOR 


STRONG COMPUTER SYSTEMS 


BRYN COTTAGE, PENIEL, CARMARTHEN, DYFED SA32 7DJ 
TELEPHONE: 0267 231246 
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QL RAM BOARDS 
OA Kot. cmv. ome £89.05 
TZ6KE. fale are PEOOO 
ZOD KE eae aed. ae ee 
All come with FREE RAM disk software 
All prices include VAT and DELIVERY 


cALL PETE BATEMAN on: 
04215 66488 


QL DUST COVERS 
£2.50 


Quality black vinyl 
Send cheque/PO to: 


Comtel 
3 Mount Havelock, Douglas, Isle of Man 


MPC SOFTWARE 


£11.50 Meteor Storm 
£13.50 —Hyperdrive ... 
.. £13.50 Hopper 
.. £18.00 — Flight....... 

. £11.50 Super Arcadia . 
.. £16.00 West .... 
.. £16.00 
.. £11.50 — Startrek ... 

. £35.00 BCPL 
£78.00 =—C....... 


MatchPoint ... 
Cuthbert in Space . 
Lands of Havoc . 
Crazy Painter 


- £18.00 
- £14.00 
£16.00 


Reversi 
Assembler . 
Pascal 


Super Monitor ... £15.00 Super Sprite Gen. .... 
Super Forth ... .. £25.00 Super Astrologer . 
Cartridge Doctor . £13.50 = Graphiol .......... 


.. £65.00 
. £52.00 
... £180.00 


Home Finance 


Supercharge BASIC Compiler 


Cumana 3” Disc Drive + IF .. Silicon Express 3” Disc + IF 


Cumana IF and Dual Drives .. ... £270.00 —_ Parallel Printer Interface .. £28.00 
Blank Microdrive Cartridges . ..  £1,80 Joystick Adaptor ...... £4.75 
QL Advanced User Guide . £14.50 QL and Software oo. £190.00 


Plus all the latest software and hardware. 


All prices include VAT. Postage on orders over £5 is free. Add 50p to orders under £5. 
Even cheaper rates for overseas customers. Write for details. 


MPC SOFTWARE obept. aLu1, 72 Julian Rd, West Bridgford, Nottm. NG2 5AN. 
Telephone 0602 820106 


QCODE 
MODAPTOR* 


enables QL to be used with almost any 
1200/75 or 300/300 Modem, includes software for 


PRESTEL 
VT52 


access to PRESTEL, MICRONET and Bulletin Boards, etc £39.90 


FOUR GAMES on one microdrive cartridge (2 M/c code) — 
Sprite Shoot, Lander, Moon landing, Wall-up 


ASSEMBLER/FULL SCREEN EDITOR with fast M/c linker 


QCODE, 42 Swinburne Rd., Abingdon, Oxon, 0X14 2HD Tel: (0235) 28359 


Ideal presents for all 
QL GARDENERS 


Take the guesswork out of gardening. 
Our Archive compatible plant data banks the planners & 
will help you. Each data bank comes on 2 microdrive car- 
tridges in a neat plastic box with a 12 cartridge capacity. 
Choice of 4 planners at £11.95 each 
(25% discount for more than one) 
Shrubs, trees and climbers planner 
Fruit trees and bushes planner 
House plants planner 
Wild flowers for gardens planner x 
Phone: 097 423 223 for more details/orders or send cheques, Access 
Card Nos. to: 


Superplant Software, Llangeitho, Tregaron, 
Dyfed, Wales, SY25 6QG 


CAM MAWR PRODUCTS 


4 Ffordd Y Glyn, Coedilai, Mold, Clwyd CH7 4SN 


DENTAL PRACTICE™ . 
VIDEO LIBRARY* 
GARAGE ACCOUNT‘ ... 
GAMES COMPENDIUN .. 
(Snake, Wall Breaker, Draughts and Mind Your Path) 


*Available Jan 86 — send for further details 


QL POOLSWINNER 


The ultimate pools prediction program 
@ MASSIVE DATABASE Poolswinner is a sophisticated Pools prediction aid. It comes complete with a large 
database — 22000 matches over 10 years. All English and Scottish team names are in the database. 
@ PREDICTS Not just scoredraws, but no scores as well. 
@ SUCCESSFUL We guarantee that Poolswinner performs considerably better than chance. 
@ UNIQUE The precise prediction formula calculates the actual efficiency of every team as the results come 
in and with speed. As are as we know there isn’t another pools predicting program that uses this method. 
ONLY £14.99 (all inclusive). 48 hours delivery from: Techsoft, 24 Wharncliffe Street, Barnsle:', South Yorkshire 
S70 6BP. 


USINESS 


INTRODUCTORY & ADVANCED APPLICATIONS. 
044 282 7302 Freepost, Tring, Herts. HP23 4BR. 


functions. Easy to use FILE TRANSFER feature. 

TEKTRONIX / WESTWARD / VT52 TERMINAL EMULATOR 

Your QL becomes a full graphics terminal for use of sophisticated mainframe graphics programs. Graphic mode 
provides line drawing, selective erase, block erase, write through mode and graphic input. VT52 mode and FILE 
TRANSFER feature. Easily configured via SETUP screen. 


LIST features. 


PRINT2000 for Brother M1009, Epson & equivalents 
Prints files in the format and style you want. Easy SETUP feature to set paper width, line spacing, font etc. 
All programs 100% M/code. Note QL hardware is restricted to 1200 baud comms. 


Software2000 oxford House, 258 Garstang Road, Preston PR2 4QB 


BANK MANAGER 


High Function, Low price, Full Screen Update, Auto Standing orders, Analysis, 
Selection, Simulation, Statement Print, Help Text, Special Offer £10. 


BRIDGEBROOK INTEK, 45 Burleigh Avenue, Wallington, Surrey, SM6 7JG 
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Whatever the computer and how- 
ever extensive the language and 
operating system, it never seems to 
have just the commands you really 
need. Given the flexibility of QL 
QDOS, it’s a fairly simple matter to 
add your own extensions to Super- 
Basic, assuming you have the time 
and ability to program in 68000 
machine code. The rest either have to 
make do with what they’ve got or 
invest in one of the excellent TOOL- 
KIT packages available. 

We decided to take a look at a 
couple of well-established toolkits. 
We also have details of a new exten- 
sion package called Giga-Basic. 

The first of the packages we 
examined is Super ‘B’, written by 
Adam Denning and marketed by 
HiSoft. We’ll also be looking at the 
Qjump QL-Toolkit, written by Tony 
Tebby, and marketed by Sinclair 
Research, including some inform- 
ation on Tony’s new toolkit. 


TOOLS ON ROM 


Place the cartridge into the micro- 
drive, press F1 or F2 and go make a 
pot of team. Not so with Super ‘B’, 
which is supplied in the form of an 
EPROM, plugging into the ROM 
socket at the rear of the machine. 
This is far better than microdrive 
storage for this type of product, and 
it’s unlikely that it will have to com- 
pete with any other ROMS, which 
tend to be languages, when you’re 
using SuperBasic. 

Figure 1 shows the additional 
commands available from Super ‘B’. 
Though similar in many ways to the 
Qjump QL-Toolkit, Super ‘B’ con- 
tains far more extensive commands 
in the areas of screen graphics and 
general utilities. Having said this, 
it’s difficult to understand the use of 
the bit-manipulation commands, 
though Adam Denning claims fre- 
quent use of them. The two linked- 
list functions are fairly redundant, 
being far too brief to be of any real 
use in list processing. The High Score 
Table games routines are quite 
novel, but I’m sure games program- 
| mers could manage to oe 
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~ Marcus Jeffery compares two QL | 
Toolkits with some interesting 
results — striking similarities 
and very few differences. 


their own high score table, which is 
not time-critical, and would be far 
happier to see some more generally 
useful game routines. 

A very similar package is the 
Qjump QL-Toolkit. Figure 2 shows 
how much these two overlap. The 
Qjump product tends to concentrate 
far more on the file-handling and 
stream control features, rather 
than the more general and graphics 
features of Super ‘B’. It also suffers 
from being supplied on microdrive, 
requiring loading, and reducing the 
amount of available RAM. Both of 
these packages are aimed at the more 
serious programmer, providing 
access to advanced QDOS features 
through SuperBasic. The choice 
between them is mainly up to the 
user’s specific requirements. Prob- 
ably the most useful additional com- 
mand on the QL-Toolkit, missing 
from the HiSoft product, is the on- 
screen SuperBasic editor. 

The story behind QL-Toolkit is 
that it was originally supplied to 
Sinclair (well over a year ago) for 
inclusion in updated QL ROMs. 
These should have been available by 
April 1985, but never materialised. 
Instead, the extensions were mar- 
keted as a toolkit, though actually 
obtaining copies isn’t easy. Unless 
you’re lucky enough to find a dealer 
selling them, the most likely course 
is to send for the toolkit via mail 
order, though this appears doubtful. 

The good news is that Tony Tebby 
is nearing completion on Toolkit Ver- 
sion II, which will be marketed in 
Europe by Qsoft and in England by 
Care Electronics. This new version 
will be in a 16K ROM format, and 
should contain many extra com- 
mands. These include’ vastly 
increased file handling commands, 
an extended on-screen editor and 


PRINT_USING for fixed format out- 


TOURNAMENT 


put. There are also new commands, 
such as DO, which will execute a file 
of direct commands and a numeric/ 
string array sort routine. It is hoped 
that the ROM version will be avail- 
able by mid-December, and disk/ 
Microdrive versions will follow early 
in 1986. 

Finally, GigaBASIC is a new pack- 
age of SuperBasic extensions from 
ABC Elektronic. Very different from 
the previous two toolkits. 
GigaBASIC is designed for the more 
general games and small business 
applications programmer. There are 
extensive sprite commands, allowing 
definition, saving and loading, mov- 
ing, animation and sprite-to-sprite 
collision detection. In fact, the only 
feature which appears to be missing 
is sprite-to-background detection. In 
addition, there are a number of Mac- 
kintosh-style menu utilities. These 
allow for definition and placement of 
pull-down menus using either the 
cursor keys or mouse. In addition, 
there are also a number of more gen- 
eral commands, tending to overlap 
with the other toolkits, including fill- 
any-irregular shape, file handling, 
function key definition, digital/ 
analogue clocks, an on-screen editor, 
Epson printer hard copy routine and 
fount definition. 

A spin-off from the pull-down 
menus in this toolkit is a package cal- 
led EASE (Easily Applicable System 
Environment), which is a complete 
desk-top environment, similar to 
ICE from Eidersoft. 

All of these products can be recom- 
mended for use with the QL. The 
choice lies mainly with the user’s 
applications. The new GigaBASIC 
extensions are ideal for users want- 
ing to write their own games pro- 
grams or menu-driven business 
packages, remembering that they'll 
only be for your own use, or anybody 
else with a copy of GigaBASIC. The 
more established toolkits are aimed 
at the more serious programmer, 
who has just found out that QDOS 
doesn’t give all the necessary 
facilities for an advanced develop- 
ment environment. 


FIGURE ONE: HISOFT SUPER 'B' EXTENSIONS 


9OB CONTROL 


ACJOB = 
CJOBS = 
DLEN = 
JOB = 
JOBS tod 
KJOB cA 
PJOB z 
RELJOB - 
SJOB = 


Activate a job. 

Create a job. 

Return default data space length of file. 
Return TRUE if job is present. 

Give details of present jobs. 

Kill a job. 

Set job priority. 

Release a job from suspension. 

Suspend job for specified time/indefinitely. 


MEMORY MANAGEMENT 


ALCHP 
FREE 

RECHP 
RERES 


MACHINE CODE 


CHANID 
DUMP = 
QTRAP 


STREAM CONTROL 


CONNECT - 
PTR = 
PTR_R = 


Allocate space from Common Heap. 
Return amount of free memory. 

Return space to Common Heap. 

Release all Resident Procedure space. 


Returns internal QDOS channel ID. 
Dump memory in hex. and ASCII. 
Executes 68008 TRAP@ instruction. 


Connect input/ouput channels. 
Set read/write position on given channel. 
Add relative offset to read/write position. 


SCREEN & GRAPHICS 


CUR - 
PXPOS =! 
PXSIZE - 
PYPOS - 
PYSIZE - 
SETWIN - 
SSHOW = 
SLOAD - 
SSAVE = 
UDG os 
xPOS = 
XSIZE = 
YPOS ci 
YSIZE = 


FILE HANDLING 


EXT = 
FREAD = 
FWRITE - 
HEADR sa 
HEADS - 


GAMES ROUTINES 


SCORE = 
SETHIGH - 
BASIC 
sene= 
LINK = 
RESET = 
TRACE i 
TROFF = 
TRON vl 
UNLINK - 


Enable/disable cursor on given channel. 

Return horizontal pixel position of cursor in 
window. 

Return number of horizontal pixels in window. 
Return vertical pixel position of cursor in 
window. 

Return number of vertical pixels in window. 
On-screen user definition of size and placement 
of window. u 

Show screen area previously SSAVEd. 

As for SSHOW, but also releases Common Heap area 
used. 

Save a screen rectangle to the Common Heap area. 
Set fount addresses on given channel. 

Return horizontal character position of cursor in 
window. 

Return number of horizontal characters in window. 
Return vertical character position of cursor in 
window. 

Return number of vertical characters in window. 


Return length of file. 

Read from channel to buffer address. 
Write to channel from buffer address. 
Read file header to buffer address. 
Set header on file. 


Display High Score Table. 
Enter score and name into High Score Table. 
Initialise High Score Table. 


Link item into linked list. 
Perform a software Reset. 
Create SuperBASIC tracing job. 
Stop trace by suspending it. 
Start trace by releasing it. 
Remove item from linked list. 


BIT MANIPULATION 


AND_L - 
OR_L - 
EOR_L os 
LSL_L =- 
LSL_W - 
LSL_B = 
LSR_L = 
LSR_W = 
LSR_B = 
ROL_L - 
ROL_W = 
ROL_B = 
ROR_L = 
ROR_W = 
ROR_B = 
GENERAL 
HEX = 
HEXS = 
ICOPY = 
locations. 
ICOPY_L - 
ICOPY_W - 
KEY oS 
REPORT - 


AND 32-bit integer. 

OR 32-bit integer. 

Exclusive-OR 32-bit integer. 

Left shift 32-bit integer. 

Left shift lower 16 bits of 32-bit integer. 
Left shift lower 8 bits of 32-bit integer. 
Right shift 32-bit integer. 

Right shift lower 16 bits of 32-bit integer. 
Right shift lower 8 bits of 32-bit integ 
Left rotate 32-bit integer. 

Left rotate lower 16 bits of 32-bit integer. 
Left rotate lower 8 bits of 32-bit integer. 
Right rotate 32-bit integer. 

Right rotate lower 16 bits of 32-bit integer. 
Right rotate lower 8 bits of 32-bit integer. 


Convert hex. string to decimal. 
Convert decimal to hex. string. 


Intelligent copy of byte a@ between memory 


As for ICOPY., but for longwords. 
As for ICOPY, but for words. 
Allows function key programming. 
Print QDOS error message. 


FIGURE TWO: QJUMP QL-TOOLKIT EXTENSIONS 


JOB CONTROL 


AJOB = 
JOBS = 
JOBS - 
NXJOB - 
OJOB = 
PJOB - 
RIJOB - 
SPJOB = 


Activate a job. 

Give details of present jobs. 
Return name of jo 
Get next job in tree. 
Get job owner 

Get job priority. 
Remove @ job. 

Set job priority. 


MEMORY MANAGEMENT 


ALCHP - 
CLCHP - 
FREE_MEM - 
RECHP - 


Allocate space from Common Heap. 
Clear space in Common Heap area. 
Return amount of free memory. 

Re @ an area of the Common Heap. 


MACHINE CODE & STREAM CONTROL 


DATA_USE 
EX,EW,ET - 


EX_DEF 


PROG_USE 


Set directory default for data files. 

Extended EXEC and EXEC_W commands, allowing 
setting of input/output files and chains of jobs 
(filters) for stream control. 

Set default priority and buffer size between 
Jobs. 

Set directory default for program files. 


SCREEN & GRAPHICS 


CHAR_INC - 
CHAR_USE - 
CURDIS = 
CURSEN - 
WMON - 
WTv - 


FILE HANDLING 


BGET - 
BPUT = 
FDAT - 
FLEN - 
FOPEN = 
FOP_DIR - 


FOP_OVER - 
FPOS = 
FTYP os 
GET = 
PUT = 
RENAME - 
SPL = 
SPLLUSE - 
STAT - 
TRUNCATE - 
VIEW = 
WDEL = 
WDEL_F - 
WDIR = 
WSTAT = 
GENERAL 
eeneeee 
BIN = 
BINS - 
CDEC@& = 
ED ss 
FDECS = 
HEX = 
HEX8 - 
IDECS - 
PARTYP - 


PARUSE - 


Set horizonatal and vertical spacing between 
characters. 

Set character founts. 

Disable cursor. 

Enable cursor. 

Reset windows (Monitor defaults). 

Reset windows (TV defaults). 


Get bytes from channel. 

Put bytes to channel. 

Get program data space from header. 

Get file length from header. 

Open file. 

Open directory. 

Open file for input. 

Open new file. 

Open file, overwriting old one, if it exists. 
Returns current file sition. 

Get file type from header. 

Get data from file using internal numeric/string 
format. 

Put 
format. 

Rename a file. 

Spool a file 

Set spool default output directory. 
Print drive statistics. 

Truncate a file to current position. 
Print a file. 

Delete files, with confirmation. 
Delete files. 

Print directory. 

Print file statistics. 


a to file using internal numeric/string 


Convert binary-type string to decimal. 

Convert decimal to binary string. 

As IDECS, but inserts commas every three digits. 
On-screen editor. 

Convert decimal number to formatted string. 
Convert hex. string to decimal. 
Convert deci to hex. string. 

As FDEC, but sumes value to be in le 
significant units. 

Returns type of parameter in SuperBASIC 
procedure/function. 

Returns usage of parameter in SuperBASIC 
procedure/function. 


In addition, QL-Toolkit contains the following programs: 


JOB FILTERS (for use with EX) 


ccL - 
ccT - 
cPY = 
LNO - 
MORE = 
PAGE - 
uc - 


Concatenate line-based files. 

Concatenates files. 

Copy a file. 

Adds line numbers to a file. 

Copies file to screen window, with screen page 
prompts. 

Spilts file into pages. 

Convert file to upper-case. 


MACHINE-CODE PROGRAMS 


ALARM - 
CLOCK - 
CLOCKH ct 
CLOCKN - 
CLOCKS - 


Alarm clock. 

Digital clock in window 0. 

Clock with hands (continuously drawn). 
Clock with hands (updated). 

Digital clock (fixed position). 


SUPERBASIC PROGRAMS 


FBACK = 
MBACK - 
PATCH - 
SBACK - 
upc - 


and Superscript 


Fast backup of all files. 

Fast backup of preselected files. 

File patching utilty. 

Fast backup, with confirmation of each file. 
User-defined cheracter editor. 


and subscript founts (for use with CHAR_USE). 


Vv 


C 
R 
0 


E 


Each month, for a trial period, this column will contain details of readers’ 
programs that we are able to offer on microdrive. 

In return for a small administration charge (per program — including a 
royalty for the author), we will copy onto blank microdrives any or all of the 
featured programs. 

Each program will be a direct copy of the published listing, or an extended 
version of that listing where the program in question was too long to print in 
full (programs for which an abridged version has been published are marked 
with an asterisk). 

It must be stressed that we are not selling the software itself, nor providing 
any guarantee that it performs any particular function (though we do check 
every program that is to appear in QL User), we are merely offering a service 
to readers who wish to obtain QL User programs on drive rather than by 
typing them in straight from the page. 


HOW TO ORDER 


Listed below are programs which have appeared as listings inside QL User. 

To the right of each program entry is a small box, which you should mark 
with a bold cross if you want to order that program. 

Once you have put a cross next to all the programs you wish to have copied 
onto microdrive, simply complete the rest of the order form and send it along 
with your PO/cheque AND BLANK FORMATTED DRIVE to: 

QL User, MICRODRIVE EXCHANGE, Priory Court, 

30-32 Farringdon Lane, EC1R 3AU. 
If you wish us to supply the drive, please add an extra £2.50 for every drive 
required and mark the order form appropriately. 

Please allow 28 days for delivery. 


Author Language Program Name Price Issue 
Giles Todd (B) DIY Assembler £5.00 Jun/Mar 120 — 
| Converts Assembler source into m/c object code 
Richard Cross * (AO) Mini Monitor £3.00 Oct 60 
I Pocket sized monitor with comprehensive facilities 
| ADidcock (B) Connect4 £1.00 Sept 15 
| Pit your wits against the QL 
Shergold & Tose (B) * Golf £2.00 May 350 
From fairway to green on 59 different courses of varying difficulty 
Williams & Holliday (AO) Paladin £5.00 Apr 70 
| The basis of our games programming series — a space invaders type game written entirely machine 
] code 
| Richard Cross (MB) Sprite Animation £2.00 Apr 50 


A subtle blend of machine code and SuperBasic that produces a versatile sprite designer and high 
speed animator 


] Steve Deary (B) Pacman £1.00 Mar 200 
] A reasonably fast rendition of the famous arcade favourite 


| Andy Carmicheal (B) Family Tree £3.00 Aug 100 
Archive program and database for setting up and displaying large family trees 

| James Lucy (B) Composer £3.00 Oct 500 
Compose and play sheet music on the QL 

| Mathew Capp (B) Miners £2.00 Aug 300 
A nail biting management simulation that puts you in charge of the NCB 

| PJ Smith (B) * DIY Adventure £1.00 Feb 60 0 

i A skeleton framework where you simply have to slot in the details to create your bespoke adventure 

] RGreen (B) Qthello £1.00 Aug 25 
A 3D version of the well known board game Othello for one or two players 

| SJ Ackers (B) “Touch Type £4.00 Aug 800 


Touch typing course — 14 lessons, on-screen keyboard, 800+ word vocabulary and WPM readout 


B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + 
Basic loader 


l 

| 

! 

| Name 
I Address. 

| 

1 Noofprogramsordered _............ Totalcost £............ 


| Total sectors 
i (max200perdrive) ............ 


| Noofdrivessent ——............ 


| Noofdrivesrequired  —............ @ £2.50each £............ 

l Plus postage & packing £ 0.75 

Sub total £............ | 
Subscribers reduction *(if applicable) @ —10% £............ | 

I Add VAT@ 15% £............ ! 


TOTALTOBESENT £............ 


Please copy onto microdrive the programs above which | have indicated with | 
a cross. | enclose a cheque/PO to the value of £............ (made payable to | 
| QL User). | understand that QL User only undertakes to SUPPLY these 
programs (copied onto microdrive) and accepts no liability for their 
operation as defined by the author. Neither can QL User supply additional 
information about any of the listings other than that originally printed in the 
magazine (any article reprints required must be ordered and paid for I 


4. ] separately at £1 each inclusive of post and packing). 
J 


*Subscribers to QL User may deduct 10% off the Sub Total on their orders. 


HARDWARE 


CCESS 


ve AH Vv = 


‘manufacturers 


Technology Research 
Ltd 

0784 63547 
Technomatic Ltd 


01 208 1177 

Microvitec, Kaga, Epson, Juki, 
Brother 

Transform Ltd 

089 283 4783 

QL dust cover, microdrive storage 
box, RS232 lead 
Twickenham Computer 
Centre 

01 891 4991 

Kaga, Ensign, Canon 

Viglen Computers 
Supplies 

01 843 9903 

Voltmace Ltd 


Park Drive, Baldock, Herts 


Printer stand 


Accountancy Software 
Sinclair Research 
QL Cash Trader 


Adder 


0223 277050 
Q@-Doctor, Assembler 


Aleph (Finland) 
01 358 67 77408 
QL-Numerical, QL/OR 


Bedsoft 

30 Lansdown Road, 
Bedford, Beds 

Gambler, Beat the Clock, Screen 
Editor 

Blain Software 

8 Berkeley Close, Staines, 
Middx 

Merry Muncher, Fire Tower, 
Advance Invaders 
Brainstorm 

4 Lindsey Close, 
Cramlington | 
Westminster Palace 


Bridgebrook Intek 
45 Burleigh Avenue, 
Wallington, Surrey 


SM6 7JG 
Bank Manager, Diary Manager, 


Thought Manager 


Champagne Computers 
Amsterdam 020 149130 
QL boek, DR Q Leap 

Co-op Soft Ltd 


0272 22223 
Civil/Structural Engineering 


Compugem Ltd 
01 731 7948 


Master Blaster 
Computer One 
0223 862616 


Pascal, Forth, Assembler, Typing 
Tutor, Monitor 

CP Software 

10 Alexandra Road, 
Harrogate 

Bridge Player 

DA Bandoo 

81 Mount Pleasant, 
Wembley 

Assembler, Screen Editor 
Data Management 
0904 760351 

SBUTIL, Mbackup, Terminal, 
Chargen, SBextras, FM 
DataGEN 

0989 67469 

Packages for Solicitors, 
Accountants, Video Libraries, 
Double Glazing Sales & 
Miscellaneous Credit Control. 


Digital Precision 


01 527 5493 

QL Super Sprite Generator, Games 
Designer, Monitor + 
Dissassembler, QL Super 
Backgammon 


Kidersoft 

0708 852647 

QL Art, Zapper, Q@SPell, Archiver, 
QL Art 

English Software 

061 835 1358 

QL Hyperdrive 

Equate 

2 Ffordd Denwyn, 
Penyffordd, Chester 
Solar Invaders, Wall Breaker, 
Draughts, Mind Your Path, 
Statistical Averages, Calendar 
Flite Software Ltd 

01 353 7423023 

Equate (maths package) 

GST Computer Systems 
0954 81991 

QL Assembler, 68K/OS, QC C 
Compiler, Macro Assembler 
Harcourt 


Sinclair Research 
QL Touch‘n’Go 


Hisoft 

0582 696421 

MonQL 

Intersoft 

7 Richmond Road, Exeter, 


Devon 
Executive Adventure 


Israel Software 
Research 

41 Kfar Chabad, ISRAEL 
60978 

Matzah Ball Game 

J&D Software 

3 Alfred Road, Lowton, 
Warrington 

Metacomco 


0272 428781 
Assembler, BCPL, Lisp 


Micro Processor 
Engineering Ltd 
21 Hanley Road, 
Southwater, Horsham, 
QL Terminator Emulator 
MicroAPL 

01 622 0395 


Microdeal 

0726 68020 

Havoc, Frogger, Cuthbert 
Micrologic Consultants 
Ltd 

57 Station Road 

MPC Software 

0602 820106 

New Horizon Software 
Fourwinds, 30 Cwm Lane, 
Rogerstone, Gwent 
Pacman, QBERT, Gold + others 
Paddy Software 

0726 832718 


Educational Programs 
PCS 

8 Oak Grove Way, 
Bridgwater, Somerset 
PCS Utilities 

Peak Electronics 

32 Clifton Avenue, 
Hartlepool, Cleveland 
QL Colour Quest 
Portfolio Software 
PO Box 15, London SW11 
Positron Computing 
0554 759624 

Hi-res screen dump 
Printerland 

0484 513105/687875 


Psion Chess, Metacomco 
Assembler 


Psientific Software 
0482 649187 

Keydefine, Q-Calc Calculator, 
Real Windows 

Psion 

01 723 9408/0553 

Quill, Abacus, Easel, Archive, 
Psion Chess 


QCode 

42 Swinburne Road, 
Abingdon, Oxon 
Terminal Emulation, 68000 
Assembler/Editor 
QJump 

Sinclair Research 

QL Monitor, QL Toolkit 
QSoft 01 499 7417 
Agenda 

Quest 

04215 66488 

Business Accounts 
Rodent Software 

3 Brookend Drive, Henley- 
in-Arden, W Midlands 
S&B Software 


20 St Nicholas Street, Diss, 


Norfolk 


Fantasia Adventure 
Saltgrade Software 
31 Royal Terrace, 


Edinburgh EH7 
File Manager, File Editor 


Shadowsoft 

0296 669740 

Area Radar Controller, Strategy 
Sinclair Research 


0276 685311 
Psion Chess 


Slave Software 
050 846 8866 


Arable Farmer Software 


Snowsoft 
6 Bousefield Crescent, 


Newton Aycliffe, Durham 
Hungry Harry in the Haunted 
House, Doom Room: Exod. VIII 


Strong Computer 
Systems 

0267 231246 

Super Plant Software 
097 423 223 

Plant & gardening software 
Swansoft 

164 Vicarage Road, 


Morriston, Swansea 
Space Trek 

Talent Computer 
Systems 

041 552 2128 

SKUL, WEST, GraphicQL 
TDI Software Ltd 


0272 742796 

USCD Pascal, USCD Fortran 77, 
Advanced Development Toolkit, 
USCD P-system, USCD Prolog 


TR Computer Systems 


093 924 621 

QL Payroll 

Triptych 

Sinclair Research 

QL Decision Maker, QL 
Entrepreneur, QL Project Planner 


Tropic Software 
09274 27497 
Bongolia Escape 

WD Software 
0534 81392 


Hilltop, St Marys, Jersey 
WD Morse Tutor 


Xpert Software 
0460 42023 


Business software 


Adder 

0223 277050 
Century 

01 434 4241 
Collins 

01 493 7070 
Duckworth 

01 485 3484 

Ellis Horwood Ltd 
0284 789942 
Granada 

01 493 7070 
Harper & Row 

01 836 4635 
Hutchinson 

01 387 2811 
Interface 

9-11 Kensington High 
Street, W8 
McGraw Hill 

0628 23431 
Melbourne House 
01 940 6064 
MicroPress 

0892 39606 
Prentice Hall 
0442 58531 
Sunshine 

01 437 4343 
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curry computer 
Your Complete QL Stockist 


Hardware, Software, Peripherals, 
Printers, Books, Magazines, Accessories 


5344 W. Banff Lane e Glendale, AZ 85306 U.S.A. 
1-602-978-2902 © Telex (via WUI): 6501267701 
DEALER INQUIRIES WELCOME 


BONGOLIA ESCAPE 


Gain your freedom from a fascist dictator. Here are 3 challenging games linked together: 
Attack: Protect planet earth from alien spaceships. 
Code-cracker: Crack the code of a combination lock. 
Island: Manage an island under seige. 
Price only £6.50 including postage. Please send Cheque/PO to:- 


Tropic Software Co. 


25 Rossway, Northwood, Middlesex HA6 3HU Tel: (09274) 27497 


“exQLusive offer for your QL” 
Dust cover for the QL and 
Colour Quest-master mind style game 
with graphics (needs thought not high speed reaction) * 3 levels * help key * ‘hall of fame’. 
Only £6.50 inc. p&p. Supplied separately - dust cover £2.25 Colour Quest £4.95 
Chequest/P.O. to:- 


P.P. SOFTWARE 22 clifton Avenue, Hartlepool, Cleveland TS26 9QN 
Telephone: (0492) 72739 


Sinclair QL is a trade mark of Sinclair Research Ltd. 


CARDFILE SYSTEM / PSION RTM / £19.95 


A friendly and comprehensive database environment offering the quick retrieval of a variety of 

information concerning friends, business acquaintances. and companies 
The system runs without Archive and supports both 44 field cardfiles and 18 field mailfiles. The cards cover 
general details and personal, company and mail addresses. All the usual Archive facilities are included plus 
computer assisted insertion, alteration, mailfile generation and printing of cards and single or multiple mail 
addresses. Over 40 menu options are available. 

The price includes a detailed 12000 word A4 manual and 14 Cardfile System files. 

Please specify mdv/flp and disk size on your mail order or send SAE for details. 

Ark Distribution, 62 Manor Way, North Harrow, Middx, HA2 6BY 

Telephone: 01 863 1861 (10am — 6pm) 


Q-PROM cats Microelectronics Lia. 


£69.95 
EPROM PROGRAMMER 


Resident software, Vpp generator and ZIF socket. Fits ex.port. CHECK, READ, 

BLOW, Fast BLOW, VERIFY, CRC-8K, 16K Q-CART EPROM reader £5.95. 

DemoEPROM £4.95. DHOBI-2 EPROM eraser £22.95. Alil prices + VAT. 

Pgm’rs also for BBC, C-64, Spectrum, ZX81, Gang pgm’r, etc. DELIVERY by return. 
CAMEL PRODUCTS, One Milton Road, Cambridge CB4 1UY 

Tel: (0223) 314814 Telex: 81574 


QL EPROM EXPANSION CARD 


Will allow the QL to execute software from power on, without the requirement to load from microdrive or diskette. 
Provides non-volatile data dnd program storage. 


Up to 256 Kbytes of Eprom storage %* — Single board plugs into QL expansion socket 
No external power required * Does not use RAM space * 8 Eprom sockets 
Each socket selectable for 128Kbit or 256Kbit Eproms * One socket selectable as QL “plug in” ROM space 
Instructions available on “booting” and executing software from Eprom * — 8 Bit digital Darlington driver output port 


PRICE ONLY £69.95 inc. VAT (DEALER ENQUIRIES WELCOME) 


MICRO ENTERPRISES LIMITED, Units 11 & 12, Avenue 3, Chilton Industrial Estate, Chilton, 
County Durham (Telephone: 0388 721242) 


__MIcRO Abs 
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PRACTICAL INTRODUCTORY AND 
MORE ADVANCED COURSES ON QL PACKAGES 
One-day and Part-time. Ask for leaflet 
Next course FEBRUARY 24/25 


Microcomputer Advisory 
Cen tre Polytechnic of the South Bank 


Borough Road 
London SE1 OAA 
OTHER COURSES: Ask for leaflet 


Tel: 01-928 8989 Ext. 2410 


COMPUTER CLEANERS 
& ek He STOP LOCK UPS & oe oe oe 
Do you suffer lost data or lock-ups? Do you think the mains is the cause? If so then our sockets may be the 
answer. 
As well as cutting high voltage spikes they smooth the cut spikes and filter RF interference from 1 to 130MHz. 
‘These Computer Cleaners work’ (independent computer user group test) 
Adaptor (1 socket) (5a fuse) — £14 incl. 
Trailing 4-way socket (13a fuse) — £24 incl. 
Simply plug either in — no wiring 


Tony Firshman Services 
43 Rhyl Street, London NW5 3HB 01 267 3887 


WDSoftware 


FOR THE QL:- 
JOSS base £13 
Forget that tedious, time-consuming syntax! Just move the cursor and press SPACE for all your file commands. Cursor keys or your 
joystick allow you to access microdrives (up to 8) and floppy discs (as many as your interface allows) with up to 150 files on each! 
Scroll and print directories, COPY, DELETE or PRINT any file, select TV or Monitor mode before LOADing or RUNning any program. 
You only use the keyboard to set the DATE or label a device when FORMATting. Easy to use with Psion and other software. No silly 
icons to learn — JOSS will TELL you what it's going to do! Programmer's toolkit and mass copying/printing utilities also supplied. 
Specify microdrive-only, Microperipheral or CST-compatible disc versions. 
RefQL7 base £7 
1300 useful QL references with ARCHIVE 2 search/print program. Too long for just one cartridge, so if you have RefQL5 just pay £2 
and extra media cost to update. 


Mdv Extension Cable £5.50 
Eight inches long, allows addition of extra microdrives to your QL. Twist it to put their slots facing you. 


FOR THE QL/SPECTRUM/BBC/ELECTRON:- 
WD Morse Tutor base £4 
Written to teach amateurs, now used by professionals too! Absolute beginner, or stretching your speed to 18 wpm, you won't find 
anything with more helpful features. What else can offer 100 random sentences a: well as all the basics! Disc version unsuitable for 
BBC B+. 


FOR EXPORT:- 
Hardware & Software from many sources, Ask for details. 


ORDERING — ADD COST OF MEDIUM, POSTAGE £1 OUTSIDE EUROPE. 
Mdv or 5.25” floppy =£2 3.5” floppy = £4 
Pay base only for cassettes. Specify disc size, tracks, system. 


PAYMENT — By ACCESS/Eurocard/MasterCard or STERLING (UK bank cheques, Eurocheques, drafts or International GIRO) To:- 


WDSoftware(QU), Hilltop, St Mary, Jersey, C.1. Tel: (0534) 813928 


Qiz 


The Home Computer Quiz Game For All Ages. 
A Sinclair QL Version of the popular Arcade Game and Pub Game 


* Additional questions available 
* Game for one or two players 


1200 Multichoice Questions supplied in 4 categories 
Compose your own questions 
League Table provided to show quiz champion for each category 


PRICE ONLY £11.50 inc. VAT 


MICRO ENTERPRISES LIMITED Units 11 & 12, Avenue 3, Chilton Industrial Estate, Chilton, 
County Durham (Telephone 0388 721242) 


WORLD CHAMPIONSHIP CHESS 


All 24 games from the 1985 Karpov — Kasparov match available on 
microdrive cassette for replay using the PSION CHESS program. 


£7.00 (or £5 on your own cassette) 


C. MATHER, 11 Coningsby Gardens East, Woodthorpe, 
Nottingham. 


Call « Serena Hadley * on 


01 251 6222 


for the best way to sell your 
QL Products 


. SUPERB NEW QL PROGRAMS AVAILABLE NOW e 


FROM 
— aoe 


L.B.O. =tikcss | Executive 
ORGANISER Adventure 


we Gemini are pleased to announce the release of 
rr EXECUTIVE ADVENTURE for the SINCLAIR QL. 


This high quality product is a text adventure with a very 

ME anne nn nee eannneecnneeeennnecs original theme. Set in the “real world”, your objective is to 
rise from lowly tramp to high-flying executive by reaching 
4 the giddy heights of the chairman's chair! 

ee The path is complex and challenging, requiring resourceful- 
pee 2 2 aay ness and logical thinking to overcome the many obstacles 
and pitfalls along the way. The problems are many and 
varied, often several per room, some of which are 
graphical. Novel skills required include the need to find 
money and then to spend it wisely in acquiring vital aids to 
your progress. 


There are over 140 rooms, and the program can 
understand a large vocabulary including multi-word 


Gemini are pleased to announce the release of LBO phrases. 

for the Sinclair QL, a comprehensive life and business , . 
organiser package. This sophisticated and versatile Designed for the novice and experienced adventurer alike, 
program has been carefully designed to provide a wide this novel adventure is different. Gone are the days of the 
range of very useful facilities, while still emphasising robot and the dragon; now compete with security guards 
simplicity and ease of use. and secretaries! 


Equally suitable fcr social and business use, in the home or at work, LBO 
will put an end to forgetfulness and ensure that you no longer miss a 
business appointment, payment of a bill, or a birthday, and that you will not 
double book yourself at the same time. 


Features include: 

© Automatic reminders of entries overdue. 

© One week's advance notice of forthcoming events. 

® Urgent notice board. 

® Creation of categories of entries, e.g. bills, birthdays, letters to be written, note pad, etc. 
© Sorting of appointments by date and time of day. 

© Month's summary at a glance, indicating times booked and free. 

® Single entry of a range of events and updating of regular appointments. 

® Search facility for related entries. 

® Month-by-month view of all forthcoming entries. 

© Week's summary at a glance giving detailed information of times booked and free. 
© Export to Quill. 

® Warning of clashing engagements. 


Use LBO to organise your life from today until 1999! Itcan handle literally ONLY £12.95 on Microdrive Cartridge. 


hundreds of multi-line messages, as many as you are ever likely to need. 
The system makes extensive use of the QL’s windowing facilities making 
the system clear and easy to use. 


Export/Trade enquiries and Local Authority POs welcome. QLU 1/86 


peoon--------------------------------------------------- = 
Despite the wide range of facilities provided, this professional program is ! 
very easy to use and requires no knowledge of computers. A vital aid to H see ee Lilla —AMEX/ACCESS only — pee 265165 
your everyday life, LBO is actually fun to use! Coen ee eR PURE Sillegmeneh ay or aibcon>aesne 

To: Gemini Marketing Ltd., Gemini House, EXMOUTH EX8 4RS 3 

| Please supply ___ QL LBO @ £19.95. Exec. Adventure @ £12.95. £ Total 

1 
ONLY £19.95 on Microdrive Cartridge. t Name 

H Address 

{ 

' 

{ 

} Cheque/POs value £. enclosed, or please debit my Accéss/Amex no. 

| 

1 

| Signature 

H 

' 

1 


QL FLOPPY DISK SYSTEM 
— MICRODRIVE EMULATION 


— FULL COMPATIBILITY WITH ALL SINCLAIR HARDWARE 


AND SOFTWARE 

— 3'''/2 PANASONIC DISK DRIVE 720K FORMATTED 
CAPACITY WITH PSU 

— COMPACT SIZE 


TWIN EXPANSION UNIT 


— LOW PROFILE - DOES NOT INTERFERE WITH QL 
KEYBOARD 

— CAN BE CONNECTED TO THRU-CON RAM CARD 

— ELEGANT QL MATCHING CASE 


THRU - CON RAM CARD 


— DUPLICATE QL INTERNAL CONNECTOR ON CARD 
— 256K OR 512K MEMORY _- ; 

— FAST ACCESS D-RAMS (150ns) 

— IDEAL FOR USE WITH ANY FLOPPY DISK INTERFACE 


DARK PRINTER 


— 120 cps BIDIRECTIONAL 

— FULLY EPSON COMPATIBLE 

— TRACTOR AND FRICTION FEED 
— QL INTERFACING INCLUDED 


